Schnellere Alternative zu Drawtext

[Namenloser]

Hallo,
ich hoffe das ist die richtige Sparte.

Ich will sehr viel Text als Grafik ausgeben, denn ich programmiere gerade meinen uralten Bild-Nach-Ascii-Converter neu^^. dabei will ich den benutzer die Möglichkeit geben, die Ausgabe wiederum als Grafik speichern zu können. Das Problem ist, das Drawtext dafür offensichtlich viel zu langsam ist.

Das komische ist, dass der Text in einem Memo sehr viel schneller - nämlich sofort - ausgegeben wird. Hat jemand eine Idee, wie ich das ganze schneller ausgeben könnte? Habe ich vielleicht irgendwelche Performance-bremsenden Parameter drin?

Delphi-Quellcode:

procedure TGraphicToText.ToGraphic(const dst: TGraphic);
var
  tmp: TBitmap;
  myrect: TRect;
begin
  tmp := tBitmap.Create;
  try
    tmp.Canvas.Font.Name := 'Courier New';
    tmp.Canvas.font.Size := 6;
    myrect.top := rect(0,0,0,0);
    // Text-Dimensionen ermitteln, wenn ich die Onlinehilfe richtig verstanden habe
    DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
      DT_NOPREFIX or DT_CALCRECT or DT_NOCLIP);
    // Bitmapgröße einstellen
    tmp.Width := myrect.Right-myrect.Left;
    tmp.height := myrect.bottom-myrect.top;
    // text zeichnen
    DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
      DT_NOPREFIX or DT_NOCLIP);
    // Ergebnis übernehmen
    dst.assign(tmp);
  finally
    tmp.free;
  end;
end;

In fresult steht der Text.