DrawFocusRect

[sergeyrulit]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Bool then
  begin
    R:=Rect(X0,Y0,X,Y);
    Form1.Canvas.DrawFocusRect(R);
  end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Bool:= True;
  X0:= X;
  Y0:= Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Bool:= False;
end;

Подскажите как стирать все в этом прямоугольнике, и за ним. А то плохо смотрится..