[Klo]

Код:

var
  icn: TIcon;
  WinDir: PChar;
begin
 GetMem(WinDir, 255);
 GetWindowsDirectory(WinDir, 255);
// Get standart image "computer"
  icn:=TIcon.Create;
  icn.Handle:=ExtractIcon(HInstance, PChar(WinDir+'\system32\shell32.dll'), 15);
  ImageList1.AddIcon(icn);
  icn.Free;
end;

должно сработать