[RusMaXXX]

Код:

uses
  SyncObjs;

procedure CheckDbl;
begin
  CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAM_CHECKEXIST');
  if CheckEvent.WaitFor(10) <> wrSignaled then
  begin
    MessageBox(0,'Программа будет закрыта','Инфа',0);
  end;
end;