Impresion en Epson Tm-300 o Start Sp2000

[Assolon]

Paradox no lo he utilizado nunca, da igual aqui te pongo un ejemplo que recorre un bucle e imprime los valores de una variable:

var
strMensaje: string;
variable: integer;
iImpresora : TextFile;
begin
Assignfile(iImpresora,'Lpt1'); //Puerto: LPT1, COM1, etc;
Rewrite(iImpresora);
strMensaje := 'Imprimiendo...';
writeln(iImpresora, strMensaje);
for variable:=0 to 10 do begin
// writeln lo que hace es imprimir el valor de 'variable'
// iImpresora es donde estamos escribiendo dicho valor que en nuestro caso es el Lpt1, la impresora.
Writeln(iImpresora, intTostr(variable));
end;

strMensaje := 'Fin de impresion';

writeln(iImpresora, strMensaje);
CloseFile(iImpresora);


//Lo que tiene que salir en la impresora es lo siguiente
Imprimiendo...
0
1
2
3
4
5
6
7
8
9
Fin de impresion

Con esto tiene que acabar tus dudas, sino pillate un manual y empieza desde el principio.