[CrazySoft]

Puedes probar con codigos de escape para imprimir directamente, casi de la misma forma que la estas haciendo y adicionalmete te permite el corte de papel

Código Delphi [-]
var Impresora : TextFile;
Begin
assignFile(Impresora, 'LPT1'); //Asigna el puerto a la variable "Impresora"
//'LPT1' indica el puerto al que se conecta la impresora,
//ej.: 'COM1', 'COM2'
rewrite(Impresora); //apertura del archivo, creacion
//Los siguientes son comandos ESC. ESC o escape es el caracter #27
//Comando para cambiar tipo de letra: ESC ! n
Write(Impresora, #27);//ESC
Writeln(Impresora, 'COMPROBANTE');//Texto a imprimir
Writeln(Impresora, '123456789012345678901234567890');
Writeln(Impresora, '111111111111111111111111111111');
Writeln(Impresora, 'abcdefghijklmnopqrstuvxyzABCDE...');
Writeln(Impresora, '______________________________');
Writeln(Impresora, '------------------------------');
Write(Impresora, #27+'i');// m= corte parcial, en teoria i= corte total
CloseFile(Impresora); //cerrar el archivo
end;

bueno espero que te sirva