Все формы проекта поверх всех окон

[Crunkordie]

Здравствуйте.
Столкнулся с такой задачей, что необходимо удерживать 3 формы одновременно поверх всех остальных. Сами формы друг с другом не пересекаются.
Для каждой формы устанавливаю FormStyle:=fsStayOnTop, но при этом поверх всех остальных остается только главная форма.
Как быть?

P.s. главная форма вызывает все остальные через Form.show

[TorrentTor]

На актив главной формы повесить смену стиля

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.FormStyle:=fsStayOnTop;
Form3.FormStyle:=fsStayOnTop;
end;

[TorrentTor]

А тут соответственно показ форм, у меня вродь работает как надо.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form3.Show;
FormStyle:=fsStayOnTop;
end;

[FaTaL]

Пошлите каждому окну вот такой код:

 with Form1 do
  SetWindowPos(Handle,
    HWND_TOPMOST,
    Left,
    Top,
    Width,
    Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

где Form1 - имя Вашей формы.