Verificando se há uma cópia em execução

Var
Hwnd: Thandle;
begin
Hwnd := FindWindow ('TForm1', 'One Copy');
if Hwnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TForm, Form1)
Application.Run;
end
else
begin
MessageDlg ('Este programa já esta aberto' [mbok], 0);
SetForegroundWindow (Hwnd);
end;
end.