[IceExecutioner]

спс за помощь, но я понял в чём косяк

Код:

frDM.ADOQuery2.Close;
frDM.ADOQuery2.SQL.Text:='CREATE TABLE MyTable1 (ID INTEGER, DiskName VARCHAR(255), DiskType VARCHAR(3), Price NUMERIC(4,2), PRIMARY KEY(ID))';
frDM.ADOQuery2.ExecSQL;