[4erep_88]

Вот рабочий вариант:

Код:

program Project1;

uses
  Forms,Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Form1:=TForm1.Create(nil);
  Application.Run;
  while true do begin
   sleep(1000);
   Application.ProcessMessages;
  end;
end.

т.е форму создаем сами