базы данных, действия Опции

[оля]

Скажите пожалуйста, как удалять столбцы из базы данных?
так я удаляю строки:

Код

table2.First;
gb:=0;
for j:=0 to Table2.RecordCount-1 do
begin
for i:=0 to table2.FieldCount-1 do
if Table2.Fields[i].value=0 then gb:=gb+1;
if gb=table2.fieldCount then table2.Delete;
gb:=0;
Table2.Next;
end;    

а так мучаюсь со столбцами:

Код

Table1.First;
 fiel:=0;
  for i:=0 to table1.FieldCount-1 do
   begin
     for j:=0 to Table1.RecordCount-1 do
       begin
         if Table1.Fields[i].Value=0 then g:=g+1;
         Table1.Next;
       end;
     if g=table1.fieldCount then
       begin
         table1.first;
         fiel:=fiel+1;
         for db:=i to table1.FieldCount-2 do begin
            for ga:=0 to Table1.RecordCount-1 do  begin
             table1.Edit;
             table1.Fields[db].value:=table1.Fields[db+1].value;
             Table1.Next;
            end;
         table1.First;
           
         end;
       
         end;
     g:=0;

    table1.First;

   end;

и ничего не выходит