program Project1;
uses
Forms, Windows,
Unit1 in 'Unit1.pas' ;
begin {$R *.res}
if (CreateMutex(nil, False, 'Identificador_Unico_Del_Proceso')=0) or
(GetLastError = ERROR_ALREADY_EXISTS) then
Halt(1);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.