Где ошибка в цикле

[nxn_sam]

Добрый день!
Не много запутался помогите плиз, есть ini файл с данными, надо читать из него значение и пробегать по (например) txt файлу, если совпали то выдергиваем строку и записываем данные, потом следующая переменная из ini файла и т. д. Я написал код он берет значение из ini и бежит по txt файлу, все работает с одним значением где не правильно поставил циклы?

procedure TForm1.Button7Click(Sender: TObject);
var
 Ini: Tinifile;
 List: TStringList;
 i: integer;
 word, s1_1, st: string;
 f : TextFile; // îáúÿâëåíèå ôàéëîâîé ïåðåìåííîé
begin
 if OpenDialog1.Execute then
  fname1:=OpenDialog1.FileName;
 AssignFile(f,fname1); // ïðèâÿçêà íàçâàíèÿ ôàéëà ê ôàéëîâîé ïåðåìåííîé
 {$I-} // îòêëþ÷åíèå êîíòðîëÿ îøèáîê ââîäà-âûâîäà
 Reset(f); // îòêðûòèå ôàéëà äëÿ ÷òåíèÿ
 {$I+} // âêëþ÷åíèå êîíòðîëÿ îøèáîê ââîäà-âûâîäà
 if IOResult<>0 then // åñëè åñòü îøèáêà îòêðûòèÿ, òî
 begin
  ShowMessage('Îøèáêà îòêðûòèÿ ôàéëà C:\1.TXT');
  Exit; // âûõîä èç ïðîöåäóðû ïðè îøèáêå îòêðûòèÿ ôàéëà
 end;
 // Îòêðûâàåì ôàéë
 Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'term.ini');
 List := TStringList.Create;
 Ini.ReadSection('name',List);
 for i := 0 to List.Count - 1 do begin
  word := Ini.ReadString('name', List.Strings[i], '');
 // showmessage(word);
  While not EOF(f) do // ïîêà íå êîíåö ôàéëà äåëàòü öèêë:
  begin
   ReadLn(f,st); // ÷èòàòü èç ôàéëà ñòðîêó
   s1_1:=trim(copy(st,305,37));
   if (word = s1_1) then begin
    showmessage(copy(st,405,14));
   end;
  end;
 end;
 List.Destroy;
 Ini.Free;
end;

[FaTaL]

Откуда выдёргиваем, куда записываем? Предоставьте лучше ИНИ файл и Ваш ТХТ с которым надо сравнивать.

[nxn_sam]

писать в базу это я сделаю. мне надо разобраться тут где то ошибка а где не понял еще.
в архиве ini файл пример и файл не принципиально txt или нет

[Аватар]

Текстовый файл перед While not EOF(f) нужно каждый раз сначала читать, а в проге только первый раз читается сначала

[nxn_sam]

Спасибо, огромное получилось!!!!!

[nxn_sam]

Аватар можно вопрос?