1:
2:
3:
4:
5:
6:
7:
8:

var f: system.text
    L : string

assignfile (f,'Test.txt');
readln (f,L); { sooft lesen bis die Zeile erreicht ist }
closefile (f);

Memo.text:=L					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var f: system.text  ;
L : string;
begin
assignfile (f,'c:\downloads.txt');
readln (f,L); 
closefile (f);

Memo1.text:=L

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Var
  s : TStringlist;

Begin
  s := TStringlist.Create;
  Try
    S.loadFromFile ('foo.txt');

// Random (x) liefert eine ganze Zahl zwischen 0 und x-1
// Da die Stringlist von 0..Count-1 indiziert ist, klappts
    memo1.lines.Text := s[Random (s.count)];
  Finally
    s.free      // Muss immer aufgerufen werden, auch wenn ein Fehler auftritt
    End
End;					

1:
2:
3:
4:
5:
6:
7:

  AssignFile (F,'foo.txt');
  Open (F); // Wurde Vergessen
  Try
    ReadLn (F,L);
  Finally
    Close (F); // Sollte immer ausgeführt werden 
    End;