Есть код рисования мышкой, как сделать, чтобы он работал только при активации/деактивации

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 with Canvas do begin
   Pen.Color:= clNavy;
   Pen.Width:= 2;
   MoveTo(X, Y);
 end;  
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if ssLeft in Shift then Canvas.LineTo(X, Y);
end;

var
  Form1: TForm1;
  f:boolean=false;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if f then
  with Canvas do begin
   Pen.Color:= clNavy;
   Pen.Width:= 2;
   MoveTo(X, Y);
 end;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if f and(ssLeft in Shift) then Canvas.LineTo(X, Y);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
f:=not f;
end;