Событие MouseMove при нажатой кнопке

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel2.Visible := PtInRect(Panel1.BoundsRect, Point(X, Y));
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel2.Visible := PtInRect(Panel1.ClientRect, Point(X, Y));
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if GetKeyState(VK_LBUTTON)<0 then Caption:='Нажата левая';
   if GetKeyState(VK_RBUTTON)<0 then Caption:='Нажата правая';
   if GetKeyState(VK_MBUTTON)<0 then Caption:='Нажата средняя';
end;

var
  Form1: TForm1;
  x1, y1: Integer; //координаты ячеек
  i, j: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := 'X = ' + IntToStr(X) + ', Y = ' + IntToStr(Y);
  x1 := X div 20;
  y1 := Y div 20;
  Label1.Caption := IntToStr(x1);
  Label2.Caption := IntToStr(y1);
 
  //если зажата правая кнопка- то рисуем квадратики
  if Shift = [ssRight] then
  with Image1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect(X div 20 * 20, Y div 20 * 20, X div 20 * 20 + 20, Y div 20 * 20
      + 20));
  end;
 
    //если зажата левая кнопка- то рисуем картинки
  if Shift = [ssLeft] then
  with Image1.Canvas do
  begin
   Draw(X div 20 * 20, Y div 20 * 20,Image2.Picture.Bitmap);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //  Image1.Canvas.MoveTo(100, 100); //Начальные координаты линии
  //  Image1.Canvas.LineTo(200, 200); //Конечные координаты линии
 
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssRight] then
  with Image1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect(X div 20 * 20, Y div 20 * 20, X div 20 * 20 + 20, Y div 20 * 20
      + 20));
  end;
 
 
 if Shift = [ssLeft] then
 with Image1.Canvas do
  begin
   Draw(X div 20 * 20, Y div 20 * 20,Image2.Picture.Bitmap);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  for i := 0 to 15 do
  begin
    Image1.Canvas.MoveTo(i * 20, 0); //Начальные координаты линии
    Image1.Canvas.LineTo(i * 20, 200); //Конечные координаты линии
  end;
 
  for i := 0 to 10 do
  begin
    Image1.Canvas.MoveTo(0, i * 20); //Начальные координаты линии
    Image1.Canvas.LineTo(300, i * 20); //Конечные координаты линии
  end;
 
end;
 
end.

procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
 Panel2.Visible:= False;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (x > Panel1.Width)or(x<0)or             
    (y > Panel1.Height)or(y<0) then        
      Panel2.Visible:= False    
 else
      Panel2.Visible:= True;
 
end;