var 
  S: TStringList; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  S := TStringlist.create; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  S.free; 
end; 
 
function Zeile(nr: integer): string; 
begin 
  if nr > S.count then 
    result := '*** Zeile ' + inttostr(nr) + ' ist nicht vorhanden ***' 
  else result := S[nr - 1]; 
end; 
 
procedure LeseOffeneTextdatei(Filename: TFilename); 
var 
  F: TFilestream; 
begin 
  F := TFilestream.create(Filename, fmOpenRead or fmShareDenyNone); 
  S.LoadFromStream(F); 
  F.free; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  LeseOffeneTextdatei('c:\test.txt'); 
  label1.caption := Zeile(1); 
  label2.caption := Zeile(2); 
  label3.caption := Zeile(3); 
// usw. 
end;