CreateMutex, komischer Fehler

[Koma-Code]

Hier:

Delphi-Quellcode:

initialization
mHandle := CreateMutex(nil,True,'Name');
if (GetLastError = ERROR_ALREADY_EXISTS) then 
 begin 
  ...
 end
  else ShowMessage ('Program is already running.');

  halt;    
end;


finalization
if mHandle <> 0 then CloseHandle(mHandle);