La verdad es que el caso es extraño, prueba esta variante a ver y nos dices si te ha funcionado.
Código Delphi
[-]
Procedure imprimir(sender)
var
Txt:TextFile;
begin
Application.ProcessMessages;
AssignFile(Txt,´LPT1´);
Rewrite(Txt);
WriteLn(Txt,´Texto a Imprimir´);
Mas lineas a imprimir , el detalle de la factura etx
CloseFile(Txt);
end;
Un Saludo.