[[egostar]]

Me imagino que quieres abrir archivos de texto

Si es así, estas usando mal las funciones

Código Delphi [-]
Var
  Arch := TextFile;

begin
   AssignFile(Arch,'archivo.txt');
   Rewrite(Arch);
   CloseFile(Arch);
end;

Salud OS