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