[[Delphius]]

The_Avatar,
Este ejemplo lo que hace es cargar un cursor desde un archivo y lo muestra en la parte izquierda de la pantalla, mientras que si el cursor está del lado derecho muestra el de por defecto...

Lo que tu deberás hacer es limitar el área en donde se deberá mostrar el cursor que elijas... En tu caso, dependiendo de los límites y la posición del objeto en cuestión.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  //cargar los cursores
  // en el ejemplo en 1
  screen.Cursors[1] := LoadCursorFromFile('C:\WINDOWS\Cursores\3dgarro.cur');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if X < (ClientWidth div 2)
     then screen.Cursor := 1
     else screen.Cursor := crDefault;
end;

end.

Si esto no te funciona... habría que ver en tu código si tienes algún problema... No se que puede estar mal.

Saludos,