Bitmapgröße an Textgröße anpassen?

[Karstadt]

Delphi-Quellcode:

  Bild := TBitmap.create;

  with Bild do
  begin
    Canvas.Font := edt_text.Font;
    Height := Canvas.TextHeight(edt_text.Text)*edt_text.Lines.Count;
    Width := Canvas.TextWidth(edt_text.Text);
    transparentcolor := clWhite;
    transparent := true;
    for i:= 0 to edt_text.Lines.Count-1 do
    begin
     canvas.TextOut(0,Canvas.TextHeight(edt_text.Text)*i,edt_text.Lines.Strings[i]);
    end;
  end;

die BREITE des bildes wird doch gewaltig sein wenn es 100 zeilensind.. oder?