[Alegun]

Оффтоп:

Сообщение от Bargest

...Ответили бы вам каким-нибудь извращенским километровым кодом...

Вот что значит проницательность, прям в воду глядишь

...

Сообщение от Noooob

...а можно создать курсор в пределах формы?...

Можно сделать это и с основным - при заходе на форму по OnMouseMove сохранять координаты курсора, а при покидании ея его восстанавливать. Вот пример

Код:

var
 flg: boolean;
 mX, mY: integer; 

procedure TForm1.FormDeactivate(Sender: TObject);
begin
ReleaseCapture;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if GetCapture = 0 then SetCapture(Form1.Handle);
 if PtInRect(Rect(Left, Top, Left + Width,Top + Height),ClientToScreen(Point(X,Y))) then
  begin
   if not flg then
    begin
     flg:= true;
     mX:= X;
     mY:= Y;
    end;
  end else
   begin
    if flg then
     begin
      flg:= false;
      SetCursorPos(mX,mY);
     end;
  end;
end;

или вам надо чтоб курсор пределы формы не покидал? Непонятки