Помогите с указателем мыши

[taratari]

Пожалуйста, подскажите, как можно определить (естественно не "на глаз") внешний вид указателя мыши в любом окне, месте экрана и т.д.
Задача прмено следующая: есть окно сторонней программы, при перемещении по нему мыши ее указатель принимает разные виды. Требуется знать какой вид у него в текущий момент, ну или хотя бы заметить что он поменялся с одного на другой.
...Чувствую, что ответ лежит где-то на поверхности, но найти не смог...
Заранее спасибо!

[Vasuha]

Допустим в событие OnTimer:
var c: TCursor;
begin
c := GetCursor();
Edit1.Text := inttostr(c)
end;

[taratari]

Спасибо!
Идея ясна. Проверил, работает, но только в рамках исполняемой формы.
А как бы заставить работать в любом месте экрана, над другими приложениями...???

[Vasuha]

Так будет правильней и работает, пролетая над другими окнами:
var
CI: TCursorInfo;
begin
CI.cbSize := SizeOf(CI);
GetCursorInfo(CI);
Image1.Picture.Icon.Handle := CI.hCursor;
end;

[taratari]

Спасибо!!!
Все работает, разобрался!!!