[[ElKurgan]]

Una forma sencilla de hacerlo sería como sigue:

var
  iImpresora : TextFile;
  vLista: TStringList;
begin
  Assignfile(iImpresora,'Lpt1'); 
  Rewrite(iImpresora);
  vLista := TStringList.Create;
  try
    vLista.Strings.LoadFromFile('ElFicheroQueQuieroLeer');
    Writeln(iImpresora, vLista.Strings.Text );
  finally
    CloseFile(iImpresora);
    vLista.Free;
  end;
end;

Un saludo