ecape-sequenz zum drucker

[omata]

Also wenn schon AsignFile dann auch CloseFile.

Delphi-Quellcode:

var t : Textfile;
begin
  try
    AssignFile(t, 'LPT1');
    Rewrite(t);
    Write(t, chr(27) + richtige ESC-Sequenz);
  finally
    CloseFile(t);
  end;
end;