[Arsen]

Хм.. Не помогает (( Все по-прежнему.. Если окно становится активным, то потом оно уже не поверх всех. Сейчас у меня в программе такой код.. Может что-то зависит от положения Register Hotkey? Код:

procedure TForm3.FormCreate(Sender: TObject);
begin
RegisterHotkey (Handle, 1, MOD_ALT or MOD_SHIFT, VK_F7);
wnd := GetForegroundWindow;
formStyle := fsNormal;
Show;
FormStyle := fsStayOnTop;
SetForegroundWindow(wnd);
SetActiveWindow(wnd);

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

// RegisterHotkey (Handle, 1, MOD_ALT or MOD_SHIFT, VK_F7);
end;