[Yurk@]

Код:

var
  HM: THandle;
{$R *.res}

function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');
  Result := (HM <> 0);
  if HM = 0 then
    HM := CreateMutex(nil, false, 'MyOwnMutex');
end;

begin
if not Check then
  begin
  Application.Initialize;
  Application.CreateForm(TfForm, fForm);
  Application.Run;
  end
else
	begin
   Application.MessageBox('ВНИМАНИЕ !!! Программа уже запущена','ВНИМАНИЕ',0);
   Exit;
   end;