Source position: forms.pp line 888
type TCursorRec = record
Next: PCursorRec;
Index: Integer;
Handle: HCURSOR;
end;