Fenster wiederherstellen mit SetForeGround

[TUX_der_Pinguin]

Ich habe eine Anwendung geschrieben die beim 2. Aufruf des Programms eine Message an alle Fenster schickt,
bekommt die 1. Instanz der Anwendung diese Botschaft so soll das Fenster wiederhergestellt bzw. angezeigt
werden in der exakten größe was aber zur Zeit noch nicht klappt.

Wie die Message verschickt wird steht in einem anderen Beitrag von mir (Link)

Ich habe schon einige Dinge probiert und hier der letzte Versuch, das Program scheint zwar den Focus zubekommen
jedoch wird das Fenster nicht korrekt wiederhergestellt.

Delphi-Quellcode:

procedure TfrmMain.OnAppMsg(var Msg: TMsg; var Handled: Boolean); 
begin 
  Handled := False; 

  if Msg.message = dwMessage then begin 
    if Msg.wParam = glPrgMode then begin 
      ShowWindow(Application.MainFormHandle, SW_NORMAL); 
      SetForegroundWindow(Application.MainFormHandle); 
    end; 
    Handled := True; 
  end; 

end;