[PashaXP]

Вот именно -

Код:

1 2 3 4

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 ???