ayuda con el codigo de procedimiento almacenado

[pipecato]

tengo sqlserver 2000, este codigo para crear un usuario desde el interfaz de mi programa

este el codigo del procedimiento almacenado (sqlserver2000)
CREATE PROCEDURE creacion_usuario (@usuario varchar(30), @pass varchar(30) ) AS

exec sp_addlogin @usuario,@pass
GO

el llamado desde delphi para el procedimiento almacenado

Datamodulo.adoconsulta.SQL.Clear;
Datamodulo.adoconsulta.SQL.Add('select * from creacion_usuario(:usuario,ass)');
datamodulo.adoconsulta.Parameters.ParamValues['usuario']:=edtusuario.Text;
datamodulo.adoconsulta.Parameters.ParamValues['pass']:=edtcontrasena.Text;
datamodulo.adoconsulta.ExecSQL;