Maybe something like this:Code: Pascal [Select][+][-]procedure TForm1.FormCreate(Sender: TObject);var ABitmap: TBitmap;begin ABitmap := TBitmap.Create; ImageList1.GetBitmap(0, ABitmap); MyTrayIcon.Icon.Assign(ABitmap); ABitmap.Free;end;