[Gravitas]

Код:

program Project1;

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

 {$R *.res}

 begin
if FindWindow('TForm1', 'Form1') <> then
 begin
 SetForegroundWindow(FindWindow('TForm1', 'Form1'));
 Application.Terminated;
 end;

 Application.Initialize;
 Application.MainFormOnTaskbar := True;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
 end.