Как отобразить не главные окна своей программы в панели задач Windows

Code:

uses Unit3;

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);

begin

SetWindowLong(Handle, GWL_EXSTYLE,

GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Form3.Visible = false then

   Application.Terminate;

end;

Code:

uses Unit2;

{$R *.DFM}

procedure TForm3.FormCreate(Sender: TObject);

begin

SetWindowLong(Handle, GWL_EXSTYLE,

GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Form2.Visible = false then

   Application.Terminate;

end;