Вычисляемые поля

var 
count:integer;
begin
  SQLQuerry1.Close;
  SQLQuerry1.SQL.Clear;
  SQLQuerry1.SQL.Add('Select Count(Name) from MyTable where "FK"=5');
  SQLQuerry1.open;
  SQLQuerry1.open;
  count := SQLQuerry1.FieldByName('Count').asinteger;
 
 
if count > 0 then
  begin
    SQLQuerry1.Close;
    SQLQuerry1.SQL.Clear;
    SQLQuerry1.SQL.Add('Select name,kolvo from MyTable where "FK"=5');
    SQLQuerry1.open;
  end;
 
   stringgrid1.Visible:=True;
   stringgrid1.Width:=0;
 
SQLQuerry1.First; 
for i:=1 to count do //или  (SQLQuerry1. while not eof do)
  begin
     Stringgrid1.ColCount:=Stringgrid1.ColCount+1;
     stringgrid1.Cells[Stringgrid1.ColCount-1,0]:=SQLQuerry1.FieldByName('name');
     stringgrid1.Cells[Stringgrid1.ColCount-1,1]:=SQLQuerry1.FieldByName('kolvo');
     stringgrid1.Width:=stringgrid1.Width+64
     SQLQuerry1.Next;
  end;
end;

SQLQuerry1.SQL.Add('UPDATE имя таблицы SET kolvo=:kolvo-2 WHERE "name"=:name, "FK"=FK); //FK это глобальная переменная
SQLQUEry1.ParamByName('kolvo').Value:=IntToStr(Edit1.Text);
SQLQUEry1.ParamByName('name').Value:=Combobox1.Text;

combobox1.additem (строка, tobject (значение ID записи));

step:=Combobox.ItemIndex;
name:=Combobox.Text

with SqlQuerry do
  begin
     Close
     SQL.Add('Select name,step,kol-vo from MyTable Where "FK"=:FK')
     open
     DisableControls;
     Combobox1.Clear;   
     while not Eof do
        begin
            Combobox1.Items.AddObject(FieldByName('name').AssString, tobject FieldByName('step').AssString)
            next;
        end;
     EnabledControls;   
  end;