用存储过程自动建表（表名不限）

一个网友想做一个每新建一个用户就为该用户建一张表的例子。我就为他写下了下面的过程及如何调用存储过

程的方法以供参考
   
CREATE PROCEDURE autoCreateTable
       
   @tableName char(10)
    
 AS

exec('
  create table '+@tableName+'
  (
       ID int identity(1,1) primary key,
       name char(16)
  )')
GO

如何调用存储过程

    with datamodule1.ADOStoredProc_Pub do
    begin
      if active then close;
      procedureName:='autoCreateTable';
      parameters.Clear;
      parameters.Add;
     
      parameters[0].Value:=UserName;
     
      try
        execproc;
      except
       
        exit;
      end;
      messagebox(0,pchar('建表成功'),pchar('成功'),mb_ok+mb_iconinformation);
    end;// end with