procedure TForm1.buttonGetFieldsClick(Sender: TObject);
begin
memoTableFields.Clear;
ADOConnection1.GetFieldNames(editTable.Text, memoTableFields.Lines);
end;
procedure TForm1.buttonSetFieldsClick(Sender: TObject);
begin
listboxFields.Clear;
listboxFields.Items := memoTableFields.Lines;
end;