Спрятать в трей, Спрятать в трей Опции

[WishMaster]

Здравствуйте всем,перейду к сути вопроса.В C++Builder есть компанент который прячет прграмму в трей (с течение времени меняет её иконку и т.д. вобшем красота), мне хотелось бы узнать можно ли в Delphi 5 тоже сотворить что-то подобное.Заранее спасибо

[volvo]

вот код

Неправильный код... Вот так:

procedure TForm1.ControlWindow(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then begin
    Ic(1, Application.Icon);
    ShowWindow(Handle, SW_HIDE);
  end
  else inherited;
end;

procedure TForm1.IconMouse(var Msg: TMessage);
var p: tpoint;
begin
  GetCursorPos(p);
  case Msg.LParam of
    WM_LBUTTONUP, WM_LBUTTONDBLCLK:
      begin
        Ic(2,Application.Icon);
        ShowWindow(Application.Handle,SW_SHOW);
        ShowWindow(Handle,SW_SHOW);
      end;
    WM_RBUTTONUP:
      begin
        PopupMenu1.Popup(p.X, p.Y);
        PostMessage(Handle, WM_NULL, 0, 0)
      end;
  end;
  SetForegroundWindow(Handle);
end;

все работает...