[Alegun]

GetCursorPos вам в помощь... При перемещении (OnMouseMove) отслеживайте координаты указателя, если это оно (выер на shape) сделать то-то, или вот ещё вариант(через API функцу GetCapture), (форма уже в нужной позиции)

Код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If GetCapture = 0 then SetCapture(Handle);

if PtInRect(Rect(Left,Top,Left+Width, Top+Height),ClientToScreen(Point(x, y))) then
 Caption := 'Вот оно!!!' else Caption := 'Ничего не происходит';
end;

только не забудьте про

Код:

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

есно всё из DRKB (советую скачать)