Pierdo el icono al cambia la ventana

[jofebas]

primero declaramos un procedimiento como protegido
asi

Código Delphi [-]
    protected
    procedure CreateParams(var Params: TCreateParams) ;
    override;

despues escribimos el procedimiento
asi

Código Delphi [-]
procedure TForm2.CreateParams(var Params: TCreateParams) ;
 begin
   inherited;
   Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
   Params.WndParent := GetDesktopWindow;
 end;

todo estos en las formas hijas.

resuelto por un compañero de trabajo llamado Adrian