Getting Table Names

[Gary Ostroff]

Hello:

I have connected to an Access database through my Delphi6 application.
The connection works fine, but I want to create a drop-down list that
shows all the individual tables in the *.mdb file. I'm using the
following code:

procedure TDataEditForm.FormShow(Sender: TObject);
var
SL:TStrings;
begin
SL:=TstringList.create;
DataEditForm.ADOTable1.Connection.GetTableNames(SL,False);
end;

I expected to use the string-list (SL) to populate the drop-down
listbox, but the application freezes. I must be doing something
rather simple incorrectly.

Cheers!
Gary Ostroff