请大家看看程序哪错了呀？(100分)

我用这种方法来进行建立数据库
第一次建好的数据库能够看到在LISTBOX列表中，然后再用建库命令吧，再去LISTBOX看吧
只能看第一个第二个却不能显示出来，为什么呀？
//初始化

procedure TMainForm.FormCreate(Sender: TObject);
begin

Database1.Params.Values['USERNAME']:='lhc';
Database1.Params.Values['PASSWORD']:='lhc';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='中间库';
Database1.AliasName:='中间库';
Session.GetDatabaseNames (ComboBox1.Items);
ComboBox1.Text := '中间库';
ComboBox1Change (self);
ListBox1.ItemIndex := 0;
ListBox1Click (self);
end;
//如果COMBOX1CHANGE，则在LISTBOX1中显示出'COMBOBOX1.TEXT'所指向的别名库中的数据
表，我想这也就是第一次只所以能显示出来数据表名的原因吧。错了吗？

procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
Session.GetTableNames (ComboBox1.Text, '',
True, False, ListBox1.Items);
end;

//显示出来才能打开它并进行一些操作
procedure TMainForm.ListBox1Click(Sender: TObject);
begin
Table1.Close;
Table1.DatabaseName := ComboBox1.Text;
Table1.Tablename :=
Listbox1.Items [Listbox1.ItemIndex];
Table1.Open;
Caption := Format ('班级库名: %s - %s',
[Table1.DatabaseName,
Table1.Tablename]);

再解释一下,好吗?

不懂在说什么。。。。

不懂

附加功能 将问题提前

这样没问题的呀
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Session.GetTableNames (ComboBox1.Text, '',
True, False, ListBox1.Items);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Session.GetDatabaseNames (ComboBox1.Items);
Combobox1.ItemIndex:=2;
ComboBox1Change(self);
end;

多人接受答案了。

我的意思是在管理信息系统中初次使用或在使用过程中，得先 建立一个空库吧，或连续建立
多个库，之后在打开进行数据入库操作吧，我这个程序不论建立多少个库，每次打开只能
在列表中看到第一个库，其他的看不到，只能是退出系统在进入打开这样才能看到所有的库
不知道为什么？