Applikáció csak egyszer futhat 2

Ha kétszer elindítom ugyanazt az applikációt, akkor a proggi másodszorra kikapcsolja magát, és előtérbe hozza a már megnyitott másik ugyanolyan applikációt

uses Messages,WinProcs
. . .
var HWND:THandle;
begin
HWND:=FindWindow('TForm1','xakk'); // form1.caption -ja "xakk" !!
if HWND=0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
winprocs.SetForegroundWindow(HWND);
end;
end.