ADD Fields В ADOTable

for i:=0 to length(pred)-1 do begin
  g:='';
  otchetform.ADOQuery1.Active:=false;
  otchetform.ADOQuery1.SQL.Clear;
  otchetform.ADOQuery1.SQL.add('SELECT *');
  otchetform.ADOQuery1.SQL.add('FROM ocenka');
  otchetform.ADOQuery1.SQL.add('WHERE Фамилия LIKE '''+Combobox2.Items[combobox2.ItemIndex]+''' and Аттестация LikE "Да" and Предмет LIKE "База данных"');
  otchetform.ADOQuery1.Active:=True;
  g:=adoquery1.Lookup('Оценка');
  If ADOQuery1.Lookup('Аттестация','Да','Оценка') <> NULL
 then g:=ADOQuery1.Lookup('Аттестация','Да','Оценка');
 Memo2.Lines.Add('Рубежка по '+pred[i]+'='+g);
 end;

procedure TForm5.BitBtn2Click(Sender: TObject);
var i:integer;
begin
  //выбираем все предметы, которые сдал студент
  ADOQuery1.SQL.Text:='select * from ocenka where surname =:p_sname and attest=:p_att order by SUBJECT';
  ADOQuery1.ParamCheck:=true;
  ADOQuery1.Parameters.ParamByName('p_sname').Value:=Combobox2.Items[combobox2.ItemIndex];
  ADOQuery1.Parameters.ParamByName('p_att').Value:= 'Yes';
  ADOQuery1.Open;
 
  //ставим курсор на первую позицию
  ADOQuery1.First;
  //для каждой записи
  for I := 0 to ADOQuery1.RecordCount - 1 do
    begin
    //Добавляем в МЕМО поля предмет и оценка  (но лучше использовать dbGrid)
      Memo1.Lines.Add(ADOQuery1.FieldByName('sublect').AsString+'='+ADOQuery1.FieldByName('Mark').AsString);
      ADOQuery1.Next
    end;
 
end;

 for l:=1 to 4 do begin
                     Sheet.cells[index2,l]:=adoquery1.Fields.Fields[l].AsString;
                     if sheet.cells[index2,2]='5' then Sheet.Columns[l].Font.COLOR:=clRed; //else Column.Rows[l].Font.COLOR:=clBlue;
                     end;