var str:tstringlist;
i,j:integer;
adotable1:tadotable;
begin
str:=tstringlist.Create;
adotable1:=tadotable.create(self);
adotable1.connection:=adoconnection1;
adoconnection1.GetTableNames(str,false);
for i:=0 to str.Count-1 do
begin
adotable1.TableName:=str;
for j:=0 to adotable1.recordcount-1 do
adotable1.delete;
end;
end;
