[TOJluK]

Код:

var  list:Tstrings;
begin
list:=TStringList.Create;
Database1.GetTableNames(list,false);
ComboBox1.Items.AddStrings(list);
list.Free;
end;

Ну почему никто не хочет подумать, а ждет полного решения?