procedure TfrxQRcode.Draw(Canvas: TCanvas;
  ScaleX, ScaleY, OffsetX, OffsetY: Extended);
begin
  inherited;
  If Width>Height then
    Height := Width
  Else
    Width := Height;

  BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  If Text<>'' then
  Begin
    Try
      Canvas.StretchDraw(Rect(FX, FY, FX1, FY1), FBitmap);
    Finally
      //
    End;
  End;
end;