Как свернуть прогу в tray?

Code:

procedure TForm1.ApplicationMinimize(Sender : TObject);

{©Drkb v.3 ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

begin

RxTrayIcon1.Show;

ShowWindow(Application.Handle,SW_HIDE);

end;

procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Application.Restore;

SetForeGroundWindow(Application.MainForm.Handle);

RxTrayIcon1.Hide;

end;

Code:

Procedure TForm1.Ic(n:Integer;Icon:TIcon);

Var Nim:TNotifyIconData;

begin

With Nim do

Begin

cbSize:=SizeOf(Nim);

Wnd:=Form1.Handle;

uID:=1;

uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;

hicon:=Icon.Handle;

uCallbackMessage:=wm_user+1;

szTip:='Хинт, который будет появляться у значка';

End;

Case n OF

1: Shell_NotifyIcon(Nim_Add,@Nim);

2: Shell_NotifyIcon(Nim_Delete,@Nim);

3: Shell_NotifyIcon(Nim_Modify,@Nim);

End;

end;