[YVitaliy]

А так?

Код:

  Application.Initialize;
  h :=  FindWindow('TForm1','ABCD');

    if h <> 0 then
       begin

     
       if not IsWindowVisible(h) then
          ShowWindow(h,SW_RESTORE);

        setWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0,SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE);
       end
    else
  begin

  Application.CreateForm(TForm1, Form1);
  Application.Run;
  end;

ЗЫ ShowWindow(h,SW_RESTORE); уже не нужно, забыл закомментить.