Prevent multi instances of application

Use FindWindow function to find another window with appropriate class name and caption. Use this code in project source.

if FindWindow('TForm1','QQQ')=0 then
begin
  Application.Initialize;
  Application.CreateForm(TForm1,Form1);
  Application.Run;
end;