Du solltest noch den Übergabeparameter ändern:
Delphi-Quellcode:
procedure TForm1.fillCBTables(items:TStrings{cb: TComboBox});
begin
Assert(Assigned(items));
.....
dataset.Open;
while not dataset.EOF do
begin
items.Add(dataset.Fields[0].AsString);
dataset.Next;
end;
....
end;
Dadurch, dass du TStrings verwendest, bist du völlig frei, ob du die Tabellennamen in einer Combobox, ListBox, Memo oder was auch immer sehen möchtest.
Der Aufruf muss natürlich leicht angepasst werden:
fillCBTables(ComboboxTabellen.Items);
Und die Transaction kannst du Dir auch schenken; schliesslich liest du ja nur.