//iMutex:THandle;
//if iMutex = 0 then
iMutex := CreateMutex(nil, True, 'B451-3129B0A7689C');
procedure ThdDemoRun.Execute;
begin
if WaitForSingleObject(iMutex, 0) <> WAIT_OBJECT_0 then
begin
Synchronize(...);
ReleaseMutex(iMutex);
Terminate;
end;
end;