Код тривиальный, в одном месте программы работает, имеется в виду в одном модуле.

OpenDialog1.Filter := 'Text doc|*.txt';
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
begin
AssignFile(InFile,OpenDialog1.FileName);
Rewrite(InFile);
ii:=0;
jj:=1;

В основном модуле выдает ошибку 104 в следуюшей строке....

while not Eoln(InFile) do
      begin
        Readln(InFile, s);
        //ShowMessage(s + ' ' + IntToStr(Length(s)));
        //for jj:=1 to 6 do
          for ii:=1 to Length(s) do
            if s[ii] = '"' then
                begin
                  mas[jj]:=ii;
                  jj:=jj+1;
                end;
      end;
CloseFile(InFile);
end;

Открываемый документ имеет следующий вид

"Васильев В.В.","Основное подразделение",0
"Денисенко Антон","Основное подразделение",0
"Мариненко Наталья","Основное подразделение",0
"Павлова Ольга","Основное подразделение",0

Перебробовал и Eoln и Eof что то ничего не прет.... Вот что написано в справке по этому поводу^ Error 104 File not open for input Reported by Read, Readln, Eof, Eoln, SeekEof, or SeekEoln on a text file if the file is not open for input.