procedure TForm1

.FormCreate(Sender: TObject);
begin
NaseZprava := RegisterWindowMessage('NaseAplikace');
OldWindowProc := Pointer(SetWindowLong(Form1.Handle, GWL_WNDPROC, LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SetWindowLong(Form1.Handle, GWL_WNDPROC, LongInt(OldWindowProc));
end;
A to je vše. Pokud program spustíme a je to první instance, nestane se nic. Pokud to bude další instance, ukončí se a první instance se stane aktivní.