[cyborgg4655]

Подскажите пожалуйста, как вот этот кусочек кода вогнать в цикл?
Я пологаю что это должно быть похоже на - "for i=0 to Количество строк в ячейке do " А потом ещё это i нужно кудато присобачить)) Но никак до меня не дойдет куда

Код:

ADOQuery4.Locate('Код',ADOQuery1.FieldByName('Код').value,[loCaseInsensitive] );
if (a2=a1) and (a5<>a6) then
begin
ADOQuery4.Edit;
ADOQUery4.FieldByName('Количество').Value:=ADOQUery4.FieldByName('Количество').Value-ADOQuery1.FieldByName('По_Факту').Value;
ADOQUery4.FieldByName('Дата_OUT').Value:=ADOQuery1.FieldByName('Дата_OUT').Value;
ADOQuery4.Post;
ADOQuery4.Next;
ADOQuery1.Next;