[Ultras]

Код:

var
  list: TStringList;
begin
  list := TStringList.Create;
  list.LoadFromFile('f.txt');
  Edit1.Text := list[0];
  list.Free;
end;

или так:

Код:

var
  myFile: TextFile;
  text: string;
begin
  AssignFile(myFile, 'f.txt');
  Reset(myFile);

  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
  end;
  CloseFile(myFile);

  Edit1.Text := text;
end;

P.S.: почитай это