음 아래와 다른게 없고..
그냥 unit가 아닌..api창 만드는 dpr쪽WindowProc에 집어 넣으니 되는군요..
아..왜 이생각을 못하고 안된다고만 생각했었는지..ㅡ.ㅡ;
<!--CodeS-->

.....WindowProc......

    WM_SETCURSOR  :
{$Region'setcursor.아젠장..ㅡ.ㅡ; 여기다가 두니 되네....'}
      begin
.........................
        if loword(lparam) = HTCLIENT then begin
.........................
            SetCursor( R_Cursor.gin );
            exit;
          end;
....................................
....................................
....................................
....................................
..................................

          if xxxx.InSelection( pt.X, pt.Y ) then begin
            SetCursor( R_Cursor.Sel );
            exit;
          end;
        end;//if codeHittest
      end;

<!--CodeE-->