[DELPHI] Jak to zapisać??

Witam mam problem

var
  CI: TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle := CI.hCursor;
  Image1.Picture.SaveToFile('1.ico');
end;

Jak to zapisać? Czy można tą procedurę okroić(Tak aby nie używać komponentu graficznego, czyli np użyć TIcon)?

Image1.Picture.SaveToFile('1.ico');Niedziała

Hmmm.
Co mi na teraz przychodzi do głowy, to użycie DrawIcon(...) żeby narysować kursor na bitmapce (tzn stworzyć bitmapkę i na niej narysować) i bitmape przerobić na ikonę. Przerabianie bitmapy na ikonę odbywa się niestety poprzez ImageList :/