Добавление столбцов в ADO

With ADOQuery,StringGrid do begin
 Close; SQL.Clear;
 SQL.Add('Create table t (id int');
 for i:=0 to ColCount-1 do
  SQL.Add(',Field'+IntToStr(i)+' char(255)');
 SQL.Add(')');
 execsql;
 Commit;
end;

With ADOQuery,StringGrid do begin
.... Тут тот код

 for i:=1 to RowCount-1 do begin
  SQL.Text:='insert into t ('+IntToStr(i);
   for i:=1 to ColCount-1 do begin
    SQL.Append(','+QuotedStr(Cells[ i,j]));
   end;
  SQL.Append(')');
  if ExecSQL<>1 then  ShowMessage('Не внесено');
 end;
 Commit;
end;