[Neftali [Germán.Estévez]]

Pasa los nombres de tabla a un TStrings y luego lo recorres y añades las que quieras al combo...

Código Delphi [-]
var
  TS:TStrings;
  i:Integer;
begin
  TS := TStringList.Create();
  ADOConnection.GetTableNames(TS, False{SystemTables});
  try
    // recorrido
    for i := 0 to (TS.Count - 1) do begin
      // Escoger las que quieras...      
      if (AnsiStrLComp(TS.Strings[i],'client', 6) = 0) then begin
        ComboBox1.Add(TS.Strings[i]);
      end;
    end;
  finally
    TS.Free;
  end;

Te lo he puesto de memoria, así que tal vez he cometido algun error de sintaxis, pero debería funcionar...