Kann mit esc sequenzen nichts anfangen. Also wenn du einfach auf den Druckerport schreiben willst kann du das so machen:
Unit "Printers" einbinden
Code:
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignprn(f);
rewrite(f);
writeln(f,'Druck das');
end;
Oder du benutzt printer.**** und konfigurierst Layout/Schriftart etc. damit, ist ganz einfach.
Mfg