Hallo Sergej,
es sollte so funktionieren (qryTables soll die o.g.
Query sein, cbTables die ComboBox) :
Delphi-Quellcode:
cbTables.Clear;
qryTables.First;
while Not qryTables.Eof do
begin
cbTables.items.Add(qryTables.Fields[0].AsString);
qryTables.Next;
end;