Показать сообщение отдельно
  #11  
Старый 18.09.2009, 13:56
roamer roamer вне форума
Активный
 
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
По умолчанию

Sorry.
Забыл про "мусор" ...

Код:
begin
  Application.Initialize;

  //------------------------                                                                                  
  Form_Logo := TForm_Logo.Create(nil);
  Form_Logo.Show;
  MyDelay(3000);                
  //............................                                                                          
  if Form_Logo<>nil then begin
     FreeAndNil(Form_Logo);  //!!!
     Form_Logo:=NIL;
  end;  
  //............................                                                                          
  //---------------------------                                                                                  
    
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.  
Ответить с цитированием