如何获得表名？(50分)

我用ADOtalbe联接一个数据库。我想在ComboBox1里列出该库中所有的表名。应该如何做。

ADOC.GetTableNames(ComboBox.Items ,false);

其中
ADOC: TADOConnection;
ComboBox: TComboBox;
，在ADOC连接上DB后，调用上面的语句就能得到所有的表名了。

AdoConnection.GetTableNames

procedure GetTableNames(List: TStrings; SystemTables: Boolean = False);

procedure TForm1.Button1Click(Sender: TObject);

var
SL: TStrings;
index: Integer;
begin
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do begin
Table1.Insert;
Table1.FieldByName('Name').AsString := SL[index];
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := SL[index];
ADOTable1.Open;
Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;

Table1.Post;
end;
finally
SL.Free;
ADOTable1.Close;
end;
end;

多人接受答案了。