[PashaXP]

Вот именно -

Код:

for i:=1 to PG[Tek_PG].Edit_Count do
  begin
    if(PG[Tek_PG].Info_Edit[i].Word<>'') then FindAndPasteTextDoc(PG[Tek_PG].Info_Edit[i].Word ,TEdit(PG[Tek_PG].List_Edit[i-1]).text);
  end; 

что выполняется только при i=1 ???