var f:text; s:string; ... assignfile(f,'123.ini'); while not eof(f) do begin readln(f,s); <обработка> end; closefile(f);