Texto de Edit a Image BMP?

[[AgustinOrtu]]

No soy ningun experto pero proba con esto

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PaintBox1: TPaintBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // dibujar texto del edit en el paintbox
  PaintBox1.Canvas.Font.Style := [fsBold];
  PaintBox1.Canvas.Font.Name := 'Calibri';
  PaintBox1.Canvas.Font.Size := 190;
  PaintBox1.Color := clWhite;
  PaintBox1.Canvas.Rectangle(0, 0, PaintBox1.Width, PaintBox1.Height);
  PaintBox1.Canvas.TextOut(PaintBox1.Width div 4, 1, Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  FImage: TBitmap;
  FDest, FSource: TRect;
begin
  // guardar la imagen generada
  FImage := TBitmap.Create;
  try
    FImage.Height := PaintBox1.Height;
    FImage.Width := PaintBox1.Width;
    FDest := Rect(0, 0, FImage.Width, FImage.Height);
    FSource := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
    FImage.Canvas.CopyRect(FDest, PaintBox1.Canvas, FSource);
    // guardar la imagen..
    FImage.SaveToFile('test.bmp');
  finally
    FImage.Free;
  end;
end;

end.