Aquí te añado un ejemplo más, es un fragmento de código que utilizo a diario:
Código Delphi
[-]Procedure Leer_Lineas_Pedidos();
var
F :TextFile;
S :string;
cIva:String;
begin
cNomFicLNotas:='Nol010'+Vendedor+cTipFileim;
cNomFicLNotas:=cCaminoTerminales + cNomFicLNotas;
AssignFile(F, cNomFicLNotas);
Reset(F);
....
Un Saludo.