Poner un icono en el SysTray

function Shell_NotifyIcon(dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;

Procedure TForm1.AnadirIcono;
var 
  Info: TNotifyIconData;
begin
  { necesitamos rellenar la estructura Info con lo que queremos hacer }
 
  { cbSize contendrá el tamaño de la estructura }
  Info.cbSize := SizeOf(Info);
  { Wnd contendrá el Handle de la ventana que recibirá los mensajes de notificación de eventos del ratón }
  Info.Wnd    := Handle;
  { uID será el número de icono. Es útil si se añaden varios a la vez }
  Info.uID    := 1;
  { szTip contendrá el texto del "hint" }
  Info.szTip  := 'Ejemplo de icono';
  { hIcon contendrá el handle del icono a añadir }
  Info.hIcon  := LosIconos[IconoEnCuros];
  { uCallBackMessage contendrá el mensaje a devolver a la ventana dada por Wnd cuando se dispare un evento de ratón sobre el icono }
  Info.uCallbackMessage := WM_MONICONE;
  { uFlags contendrá la lista de campos usados dentro de la estructura entre los campos szTip, hIcon y uCallBackMessage}
  Info.uFlags := NIF_TIP Or NIF_ICON Or NIF_MESSAGE;
 
  { llamada a la función de la API añadiendo el icono }
  Shell_NotifyIcon( NIM_ADD, @Info );
End;

Procedure TForm1.QuitarIconos;
var 
  Info: TNotifyIconData;
begin
  { cuando eliminamos un icono, sólo son necesarios estos campos }
  Info.cbSize := SizeOf(Info);
  Info.Wnd    := Handle;
  Info.uID    := 1;
  Shell_NotifyIcon(NIM_DELETE,@Info);
End;