Нужно чтобы создавалась таблица именем которое введено в Edit2.Text. Вот мой код:
Код:
procedure TForm1.Button4Click(Sender: TObject);
var asd : string;
begin
asd := Edit2.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE asd (MyField char(25), swe char(25))';
ADOQuery1.ExecSQL;
end;