Читать из файла случайную строку

[KoBRaAndrey]

Как прочитать из файла случайную строку? И желательно занести в переменную.

[mihali4]

Практически один в один -
http://www.programmersforum.ru/showthread.php?t=3584

[Serge_Bliznykov]

var TS :TStringList;
  i : integer;
  s : string;
begin
  Randomize;
  TS :=TStringList.Create;
  TS.LoadFromFile('МойТекстовыйФайл.txt');
  i := TS.Count;
  if i=0 then s:= ''
  else begin 
     if i=1 then s:=TS.Strings[0]
     else s := TS.Strings[random(i)]
  end;
  FreeAndNil(TS);

[KoBRaAndrey]

Serge_Bliznykov Спасибо!