ADOTable1.Close;
ADOTable1.TableName := '[' + ListBox1.Items[ListBox1.ItemIndex] + ']';
ADOTable1.Open;
Memo2.Lines.Add('------------------------------------');
for var I:integer := 0 to (ADOTable1.Fields.Count - 1) do
Memo2.Lines.Add(ADOTable1.Fields[i].FieldName);