procedure TForm1.Button1Click(Sender: TObject);
var
Rect: TRectF;
begin
with Image1.Bitmap do
begin
SetSize(Trunc(Image1.Width), Trunc(Image1.Height));
Clear(TAlphaColors.White);
Canvas.BeginScene();
Canvas.Fill.Color := TAlphaColors.Black;
Canvas.Font.Size := 60;
Rect.Create(0, 0, Trunc(Image1.Width), Trunc(Image1.Height));
Canvas.FillText(Rect,
Edit1.Text,
False,
100,
[],
TTextAlign.Center,
TTextAlign.Center);
Canvas.EndScene();
end;
end;