[marcoszorrilla]

Prueba así, lo he probado y funciona:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 
 AdoCommand1.CommandText:='Create Table '+(Edit1.Text)+
                           ' (Numemp Integer Primary Key, '+
                           'nombre TEXT(30) Not null, '+
                           'edad INTEGER)';
 AdoCommand1.Execute;
 end;

Un Saludo.