esta es una funcion que cree con codigo del club y le paso un tstringlist donde cada liinea es una linea del papel
Código Delphi
[-]
procedure Imprimir(Puerto: String; Contenido: TStringList);
var
nidx: Integer;
Impresora: TextFile;
begin
AssignFile(Impresora, Puerto);
Rewrite(Impresora);
for nIdx := 0 to Contenido.Count - 1 do
WriteLn(Impresora, Contenido.Strings[nIdx]);
System.CloseFile(Impresora);
end;