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

[WishMaster]

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

[WishMaster]

Компанент называется TreyIcon , но все равно спасибо

[Mr.Dmitry]

Скачал я этот DRKB нашол код как сворачивать в трей вот этот код

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;

вот список ошибок котрые выдает мне программа когда я добовляю этот код:

[Error] Unit1.pas(182): Undeclared identifier: 'TNotifyIconData'
[Error] Unit1.pas(190): Undeclared identifier: 'cbSize'
[Error] Unit1.pas(192): Undeclared identifier: 'Wnd'
[Error] Unit1.pas(194): Undeclared identifier: 'uID'
[Error] Unit1.pas(196): Undeclared identifier: 'NIF_MESSAGE'
[Warning] Unit1.pas(196): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(200): Undeclared identifier: 'uCallbackMessage'
[Error] Unit1.pas(202): Undeclared identifier: 'szTip'
[Error] Unit1.pas(211): Undeclared identifier: 'Shell_NotifyIcon'
[Error] Unit1.pas(211): Undeclared identifier: 'Shell_NotifyIcon'
[Error] Unit1.pas(213): Undeclared identifier: 'Nim_Delete'
[Error] Unit1.pas(215): Undeclared identifier: 'Nim_Modify'

Может я какнит не правельно добавил эту процелуру или не зделал кокоето важное условие для этой процедуры? хотя в DRKB не чего не было написано!