Меню программы

[Claster]

Всем доброго времени суток....скажите как сделать что бы можно было вызвать менюшку, нажатием правой кнопки мыши (закрыть, восстановить, переместить и т.д.) на окно в панеле ПУСК.....BorderStyle=bsNone

[Claster]

Стиль:

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) xor WS_DLGFRAME);

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
WM_POPUPSYSTEMMENU = $313;
begin
if Button = mbRight then
SendMessage(Handle, WM_POPUPSYSTEMMENU, 0,
MakeLong(Mouse.CursorPos.X, Mouse.CursorPos.Y));

назревает сразу вопрос, как перехватить сообщение о восстановлении окна(идущего от системного меню)