[newdelphi7]

Gracias, pero no solo la prisa es mala consejera, sino tambien la falta de conocimiento en la materia, anoche me sente y pude hacer el sistemita... mira como lo hice.

Var
iImpresora: TextFile;
Fichero: TextFile;
Linea: String;
Contador: integer;
begin
Contador :=0;
AssignFile(Fichero,'C:\Tarjeta\tarjeta.txt');
Assignfile(iImpresora,'Lpt1');
Reset(Fichero);
While Eof(Fichero)=False Do
 Begin
 Readln(Fichero,Linea);
 Rewrite(iImpresora);
 Writeln(iImpresora, Linea);
 Inc(Contador);
 end;
Closefile(Fichero);
end;

Gracias de todas formas probare el metodo que me diste, a ver que tal y gracias de nuevo......