Вопрос по сворачиванию в трей!

[grafgrial]

Имеется процедура создания трея

procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon := Application.Icon;
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := TrayIcon.Handle;
szTip := ('Расчет параметров');
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
end;

И процедура удаления

procedure TForm1.N3Click(Sender: TObject);
 var tray : TNotifyIconData;
begin
  with tray do
  begin
    cbSize := SizeOf( TNotifyIconData );
    Wnd := Form1.Handle;
    uID := 1;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := WM_USER + 100;
    hIcon := Application.Icon.Handle;

  end;
  Shell_NotifyIcon( NIM_DELETE, @tray );

Close;
end;

При компилировании ошибок не найдено, а вот когда сворачиваешь программа сворачивается не в трей, а в панель задач. И еще когда выходишь из программы иконка остается в трее и исчезает тогда, когда наведешь на нее мышкой.
Подскажите что нужно

[RUSt88]

скачай готовый компонент для работы с треем

[MalCer]

grafgrial, в твоем коде много чего не хватает. Посмотри пример во вложении

[grafgrial]

Спасибо из примера все работает - Поставил!