const
  IDC_ROTATE = 'ROTATE';
  IDC_SHEAR = 'SHEAR';
  IDC_VERTEXDRAG = 'VERTEXDRAG';
  IDC_AREACROSS = 'AREACROSS';
  IDC_ADD = 'ADD';

  cCursor: array[0..4] of TIdentMapEntry = (
    (Value: crRotate;      Name: IDC_ROTATE),
    (Value: crShear;       Name: IDC_SHEAR),
    (Value: crVertexDrag;  Name: IDC_VERTEXDRAG),
    (Value: crAreaCross;   Name: IDC_AREACROSS),
    (Value: crAdd;         Name: IDC_ADD)
  );

procedure LoadCursors;
var
  i: Integer;
begin
  for i := Low(cCursor) to High(cCursor) do
    Screen.Cursors[cCursor[i].Value] := LoadCursor(HInstance, PChar(cCursor[i].Name));
end;

procedure DestroyCursors;
var
  i: Integer;
begin
  for i := Low(cCursor) to High(cCursor) do
    Screen.Cursors[cCursor[i].Value] := 0;
end;

initialization
  LoadCursors;

finalization
  DestroyCursors;