programProject1;usesForms,Windows,Dialogs,Unit1in'Unit1.pas'{Form1};constatm='{41F6DA10-2CA9-40B6-96D3-BE55F8798B04}';{$R *.RES}beginApplication.Initialize;ifGlobalFindAtom(atm)=0thenbeginGlobalAddAtom(atm);Application.CreateForm(TForm1,Form1);Application.Run;endelseShowMessage('This application can be started only once per Windows session,'+' you need to restart system to run program again.');end.