Soweit ich weiß gibt es bei der
VCL die
Unit Printers, mit der man direkt auf den Canvas des Druckers mit TExtOut Text ausgeben kann.
Ein Beispiel (nicht getestet):
Delphi-Quellcode:
with Printer do
begin
BeginDoc;
Canvas.TextOut(0, 0, 'test');
EndDoc;
end;
.
Jetzt musst du nur noch die Textdatei auslesen und dann den String durch 'test' ersetzen...
Edit: Über ein Memo bzw. Richedit würde ich das nicht machen (Resourcenverschwendung...)