procedure....
var
  x: TStrings;
begin
  x:=TstringList.Create;
  ADOConnection.GetTableNames(x, false или true) // <- почитай Help
  операции с x...
  x.Free;
end;