Impresión directa en puerto COM

[altp]

Gracias Cadetill por responder.

Eso lo tengo puesto, eso sí, al final.
Te envío el código por si ves algo y por si le puede interesar a alguien (es el código de COMBAT-F2D:

var
Impresora : TextFile;
begin
AssignFile(Impresora, 'COM1');
Rewrite(Impresora);
Writeln(Impresora, chr(27)+ chr(64) + chr(27)+ 'r' + chr(1));

Writeln(Impresora, chr(27)+ '!' + chr(0) + chr(27)+ 'r' + chr(0));

Writeln(Impresora, '*****************************************');
Writeln(Impresora, Conf.FieldByName('CAB1').AsString);
Writeln(Impresora, '*****************************************');
Writeln(Impresora, Conf.FieldByName('CAB2').AsString);
Writeln(Impresora, '');
Writeln(Impresora, Conf.FieldByName('CAB3').AsString);
Writeln(Impresora, Conf.FieldByName('CAB4').AsString);
Writeln(Impresora, Conf.FieldByName('CAB5').AsString);
Writeln(Impresora, '');
Writeln(Impresora, Query.FieldByName('FECHA').AsString + ' ' + FormatDateTime('hh:mm', Now) + ' Ticket ' + IntToStr(Numero));
Writeln(Impresora, '');
Writeln(Impresora, '*****************************************');
Writeln(Impresora, Query.FieldByName('NOMBRE').AsString);
Writeln(Impresora, Query.FieldByName('DESCRIPCION').AsString);
Writeln(Impresora, '*****************************************');
Writeln(Impresora, '');
Writeln(Impresora, FormatFloat('Importe 0,.00', Query.FieldByName('PRECIO').AsFloat) + ' - IVA Incluido');
Writeln(Impresora, '-----------------------------------------');
Writeln(Impresora, Conf.FieldByName('PIE1').AsString);
Writeln(Impresora, Conf.FieldByName('PIE2').AsString);
Writeln(Impresora, Conf.FieldByName('PIE3').AsString);
Writeln(Impresora, Conf.FieldByName('PIE4').AsString);
Writeln(Impresora, '-----------------------------------------');
Writeln(Impresora, Conf.FieldByName('PIE5').AsString);
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, #27#105);

[B] Writeln(Impresora, chr(27)+ chr(64)); // inicializo impresora[/b] CloseFile(Impresora);


Gracias por la ayuda