Сохранение изображения курсора

[Damien4Damien]

Всем доброго времени суток.
Имеется код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := 3000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CI : TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle := CI.hCursor;
end;

Он, насколько я понимаю, выводит в компонент Image изображение курсора каждые три секунды.
Каким образом я могу сохранить это изображение в .bmp файл?

P.S. Гуглом и поиском пользовался, знаю о Image1.Picture.SaveToFile('') и функции BitBlt. Насчет первого - если сразу же прописываю после получения изображения - то выдает ошибку "Bitmap image is not valid".
Прочитал уже много материала, много пробовал... Но что-то я все равно упускаю и/или не понимаю. Помогите с этим вопросом пожалуйста.

[Damien4Damien]

Проблема уже решена, тему можно закрывать