Pouze jedna instance aplikace v Delphi

Zdravím.
Snažím se v delphi XE2 docílit toho, aby šel spustit můj program jen jednou.
Našel jsem na netu toto.
Funguje to,ve nižších verzích Windows než XP.
Ve Win XP to nefunguje a program vůbec nespustím.

Tipy_a_triky.htm

program Project1;

uses
Forms, Windows, Messages,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var Wnd: HWnd;

begin
Wnd:=FindWindow('TForm1', nil);
if Wnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
if not IsWindowVisible(Wnd) then
PostMessage(Wnd, WM_USER, 0, 0);
SetForegroundWindow(Wnd);
end;
end.