[sashgera]

сделал так, теперь все норм

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
   read_txt: TStringList;

begin
  //добавить первую строку из файла.txt в поле Edit1
  read_txt := TStringList.Create;
  read_txt.LoadFromFile(ExtractFilePath(application.ExeName)+'myFile.txt');
  Edit1.Text := read_txt.Strings[0];
  read_txt.Free;
end;