[rasamaha]

Я еще начинающий. Нашел пример, как свернуть программу в трей. Вставил, все вышло: прога свернулась и иконка в трее есть....
и тут произошло самое смешное: я потерял управление программой...
окно то спряталось, и не закрыть прогу, ни показать окно...)))
Подскажите пожалуйста, как показать окно по клику на иконке в трее,
и как сделать контекстное меню для иконки в трее.
Я уже третий день в поисковике брожу..(

Код:

private
    { Private declarations }
  public
    { Public declarations }
    //
     MouseDownPoint : TPoint;
     Moving : bool;
   end;

var
  Form1: TForm1;
  iconData: TNotifyIconData;
implementation
...
...
procedure TForm1.ButtonTrayClick(Sender: TObject);
begin
iconData.cbSize := sizeOf(iconData);
iconData.Wnd := Handle;
iconData.uID := 0;
iconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
iconData.hIcon := Application.Icon.Handle;
iconData.szTip := 'ПИЛОТ-2009';
iconData.uCallbackMessage := WM_MOUSEMOVE;
Shell_NotifyIcon(NIM_ADD, @iconData);
Form1.Hide;
end;

вот это у меня работает)) а дальше...