DatabaseName, TableName beim TDBGrid-Control im code angeben?

[hawiwo]

Hallo,

in meinem Hauptfenster habe ich ein Button, mit dem ich über das TOpenDialog-Control Datenbank auswählen kann. Die automatische
Anmeldung und die Darstellung der Tabellen in einer ListBox funktioniert.

Bei z.B. Doppelklick auf eine Tabelle in der ListBox sollen die Daten
in der Tabelle in einem DBGrid angezeit werden. Wie das über das
TDBGrid-Control einzustellen ist (Eigenschaft ...TableName, DatabaseName usw.) ist mir klar.
WIE mach ich das im im Quellcode (dynamisch je nach ausgewählter Tabelle)?
Eine DBGrid1->.....->TableName-Eigenschaft oder ..DatabaseName o.ä. habe ich nicht gefunden!


----------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {
IBDatabase1->DatabaseName=OpenDialog1->FileName;
IBDatabase1->LoginPrompt=false;
IBDatabase1->Params->Add("user_name=sysdba");
IBDatabase1->Params->Add("password=masterkey");
IBDatabase1->Connected=true;
IBDatabase1->GetTableNames(ListBox1->Items,false);
IBTable1->Database->Connected=true;
IBTable1->Database->DatabaseName=OpenDialog1->FileName;
}
}

void __fastcall TForm9::ListBox1DblClick(TObject *Sender)
{
DBGrid1->DataSource->? // wie hier ...DatabaseName bzw. TableName angeben?
}