Определение иконки курсора

[DarkHacker]

Хай! Ситуация: когда курсор наводишь на различные обьекты,например на текстово поле,он меняеться,хочеться отследить это изменение,а конкретней изменение типа: if cursor = curso1 then,что бы при определенных изоббражениях были определенные действия.вот так вот )
Если можете помогите! Спасибо!

[DarkHacker]

Уже сделал...Если кому интересно:

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