[v1s2222]

Делай все не в FormCreate, а в FormShow. 2 форма еще не создалась, поэтому и ошибка.

Причем если в файле надо прочитать 1 строчку, зачем перечитывать весь файл? (While(not(EOF(F)) do использовать не надо, если надо читать всего 1 строчку).

Код:

procedure TForm1.FormShow(Sender: TObject);
var
  F: TextFile;
  S: String;
begin
  AssignFile(F, 'C:\1.txt');
{$I-}
  Reset(F);
  if(IOResult <> 0) then
    Exit; // Error
{$I+}
  ReadLn(F, S);
  CloseFile(F);
  Form2.ShowModal;
  Form2.Edit1.Text := S;
end;