Создание таблицы в БД

begin
 
 
   NEW.ParamByName('w').Value:=Edit1.Text; 
   NEW.SQL.Add('CREATE TABLE :q (ID INTEGER, Name VARCHAR( 43 ) NOT NULL)');
End;

var q : string;
begin
q := Edit1.Text;
NEW.Close;
NEW.SQL.Clear;
NEW.SQL.Text:= Format('CREATE TABLE q  (MyField varchar(25), swe varchar(25))', [q]);
NEW.ExecSQL;
end;

SQL.Text:= 'CREATE TABLE '+Edit1.Text+'  (MyField varchar(25), swe varchar(25))';

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Tran: integer;
begin
 Tran:= ADOConnection1.BeginTrans;
  try
  with ADOQuery1 do
             begin
               Close;
               SQL.Clear;
               SQL.ADD('CREATE TABLE '+'Emp');
               SQL.ADD('(Date_strart DateTime, ');
               SQL.Add('fio varchar(50), ');
               SQL.ADD('Phone varchar(40), ');
               SQL.ADD('Salary Money, )');
               ExecSQL;
             end;
    ADOConnection1.CommitTrans;
    ShowMessage('Таблица действительно создана');
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := ' select * from Emp';
      Open;
    end;
   except
    on E:Exception do
    begin
    ADOConnection1.RollbackTrans;
     ShowMessage('Ошибка  при создании таблицы');
    end;
  end;
end;
end.