[th_bav]

Что то не робит....

Код:

procedure TDataBase.FormCreate(Sender: TObject);
var
  S: string;
  myFile : TextFile;
begin
  AssignFile(myFile, 'C:\Shop\For programmer/Parol.txt');
  Reset(myFile);                                          
  while NOT Eof(myFile) do                            
    Readln(myFile, S);                                   
    CloseFile(myFile);                                    
    Connect.Edit1.Text:=s;                            
end;

Дело в том что появляется ошибка, а появляеться она потому что

Код:

Connect.Edit1.Text:=s;

а именно что слово Connect стоит, видимо он ругаеться что это не основная форма, тобиш я ее

Код:

Connect.ShowModal;