Заполнение столбца скриптом

Добрый вечер!
Прошу помочь со скриптом для заполнения поля "Поставлено" в таблице товар на форме закупка.
Примерный вид скрипта прилагаю:
var
   i,c: integer;
   k,q: integer;
   s: string;
begin
     Zakupka.Tablenom.BeginUpdate;

     q := Zakupka.Tablenom.Columns.Count-1;
     c := Zakupka.Tablenom.RowCount - 1;
     for i := 0 to c do
     begin
            if Zakupka.Tablenom.Cells[10,i] <= Zakupka.Tablenom.Cells[8,i] then
     begin
     s := Zakupka.Tablenom.Cells[10,i];
              for k := 0 to q do
       Zakupka.Tablenom.Cells[10,i]].Text := Запрос не могу сообразить как корректно указать (примерный запрос ниже) ;
         end;
         end;
           Zakupka.Tablenom.EndUpdate
  end;

SELECT
SUM(SpecEntrance.number)
FROM ZakEnt
LEFT JOIN Entrance ON ZakEnt.id_Entrance=Entrance.id
LEFT JOIN SpecEntrance ON SpecEntrance.id_Entrance=Entrance.id
WHERE ZakEnt.id_Zakupka=' +frmZakupka.Edit4.sqlValue+' and SpecEntrance.id_Nomenklature='+Zakupka.Tablenom.Cells[4,i]'

Файл с базой прилагаю