Как очищать TextOut(x,y)?

image1.Canvas.Draw(20,20,btmp);
btmp.Free;
image1.Canvas.TextOut(200,15,FloatToStr(w) );
Image1.Canvas.TextOut(10,130,floatToStr(h));

image1.Canvas.Refresh
//или
image1.Canvas.Repaint

   Image1.Picture.Bitmap := nil;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image1Paint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var   PaintText:String;// Переменная для текста
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Image1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Image1Paint(Sender: TObject);
begin
//Событие OnPaint для Image решает или просто отрисовывает текст
  //перерисовывая и саму картинку
  Image1.Canvas.TextOut(10,10,PaintText);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PaintText:='123456';  //Нажатие кнопки задает текст и заставляет
  Image1.Repaint;       //Картинку перерисоваться
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  PaintText:='';        //То же самое, но текст задается пустым
  Image1.Repaint;       //За счет чего происходит только обновление картинки
end;
 
end.

//Image1.Picture.Bitmap:=nil;
btmp:=TBitMap.Create; 
btmp.LoadFromFile('D:\Diplom\Picture\Left.bmp');
image1.Canvas.Draw(20,20,btmp);
btmp.Free;
image1.Canvas.TextOut(130,15,FloatToStr(w) );
Image1.Canvas.TextOut(10,130,floatToStr(h));
Image1.Canvas.TextOut(100,250,floatToStr(t));
Image1.Canvas.TextOut(200,250,floatToStr(gl));

btmp:=TBitMap.Create; 
btmp.LoadFromFile('D:\Diplom\Picture\Left.bmp');
...
btmp.Free;

//Загрузил текст:
image1.Canvas.TextOut(X, Y, 'Текст' );
 
//Почистил текст:
Image1.Picture.Bitmap:=nil;