[Neftali [Germán.Estévez]]

Crea un form y en el MouseMove coloca este código:

Código Delphi [-]
  if x<50 then begin
    Screen.Cursor := crSizeCross;
  end
  else if (x > Self.Width - 50) then begin
    Screen.Cursor := crDrag;
  end
  else if (y < 50) then begin
    Screen.Cursor := crHourGlass;
  end

  else begin
    Screen.Cursor := crDefault;
  end;

Debería funcionar igual si el cursor lo cargas de un recurso o de disco.