OnMouseMove

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Rect: TRect;
begin
  if not (ssLeft in Shift) then Exit;
 
  Rect := Bounds(200, 200, 200, 200);
 
  if PtInRect(Rect, Point(X,Y)) and not InRect then
  begin
    InRect := True;
    Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
  end;
 
  if not PtInRect(Rect, Point(X,Y)) and InRect then
  begin
    InRect := False;
    Canvas.Brush.Color := clGreen;
    Canvas.FillRect(Rect);
  end;
 
  Caption := IntToStr(X) + ' = ' + IntToStr(Y);
  if InRect then
    Caption := Caption + ' In'
  else
    Caption := Caption + ' Out';
end;

var
  Form1: TForm1;
  InRect: boolean;
 
implementation

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TBitBtn = class(Buttons.TBitBtn)
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  private
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  isRButton: boolean;
 
implementation
 
{$R *.dfm}
 
procedure TBitBtn.CMMouseEnter(var Msg: TMessage);
begin
  if isRButton then
    Perform( BM_SETSTATE, 1, 0 ); //âèçóàëèçàöèÿ íàæàòèÿ êíîïêè
end;
 
procedure TBitBtn.CMMouseLeave(var Msg: TMessage);
begin
  Perform( BM_SETSTATE, 0, 0 );
end;
 
procedure TBitBtn.MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
begin
  inherited;
  if Button = mbRight then
  begin
    isRButton := True;
    Perform( BM_SETSTATE, 1, 0 );
  end;
end;
 
procedure TBitBtn.MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
begin
  inherited;
  if Button = mbRight then
  begin
    isRButton := False;
    Perform( BM_SETSTATE, 0, 0 );
  end;
end;
 
end.

procedure TMainForm.TableMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var i, j: integer;
begin
  Smile.Glyph:= BL[1];
  for i:= 1 to 9 do
    for j:= 1 to 9 do
      if PtInRect(RA[i,j], Point(x, y)) then
      begin
        DrawInCell(Empty, i, j);
        ACol := i; ARow := j;
      end;
end;
 
procedure TMainForm.TableMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var i, j: integer;
begin
  // if GetKeyState(vk_LButton)>0 then
  if ssLeft In Shift then
  begin
    // DrawInCell(Fill, ACol, ARow);
    // ACol:= x; ARow:= y;
    for i:= 1 to 9 do
      for j:= 1 to 9 do
        if PtInRect(RA[i,j], Point(x, y)) then
        begin
          if (ACol <> i) or (ARow <> j) then
          begin
            DrawInCell(Fill, ACol, ARow);
            ACol := i; ARow := j;
            DrawInCell(Empty, i, j);
          end;
        end;
  end;
end;