[BDWONG]

Hola prueba con esto haber si te sirve.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Canvas.Brush.Color:=clBlue;
  Image1.Canvas.FillRect(0,0,Image1.Width,Image1.Height);

  Image1.Canvas.Brush.Color:=clRed;
  image1.Canvas.Font.Height:=18;
  Image1.Canvas.TextOut(10,10,'100, dias');
end;