При прижатии и отпускании кнопки мыши не вызывается изменение шрифтов

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DBCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Button1.Font.Size:=Round(Button1.Font.Size/2)
end;
 
procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Button1.Font.Size:=Button1.Font.Size*2
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName)
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
   ;
end;
 
end.

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Button1.Font.Size := Button1.Font.Size * 2;
  Button2.Font.Size := Button2.Font.Size * 3;
end;
 
procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Button1.Font.Size := Button1.Font.Size div 2;
  Button2.Font.Size := Button2.Font.Size div 3;
end;