Решил предложить Вам еще один вариант "Как не допустить запуск второй копии программы". Может кому и подойдет...
В этом случае необходимо быть уверенным, что в системе больше нет окон с именем "TForm1" - В.О.
program Project1;
uses
Forms, Windows, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES}
var
hwnd: THandle; begin
hwnd := FindWindow('TForm1', 'Form1'); if hwnd = 0 then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else SetForegroundWindow(hwnd)end.
