현재 커서 알아내기

function GetCurrentCursor: integer;    /////  이건 핸들 같구요.
var
hdl : HCURSOR;                             
Index: integer;
begin
Result := 0;
hdl := GetCursor;
for Index := crNone downto crSqlWait do
if Screen.Cursors[Index] = hdl then
begin
Result := Index;
Break;
end;
end;