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

var
  s : String;
  Filename : String;
  F : TTextFile;
begin
  AssignFile(F, Filename);
  Reset(F);
  while not eof(F) do
    readln(F, s);					

1:
2:

 
 Memo1.Lines.LoadFromFile();					

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

Sl := TStringList.Create;
try
  Sl.LoadFromFile('c:\test.txt');
  //... hier irgendwas mit dem Test machen, z.B.
  if Sl.Count > 0 then ShowMessage(Sl.Strings[0]);
finally
  Sl.Free;
end;