cretae usuarios en sql 2005 server desde delphi

[richy08]

este es el codigo con el que lo estoy intentando ahorita

alterPROCEDURE usuario @users nchar(20),@password varchar(50)
AS
BEGIN
SETNOCOUNTON;
--SE COMPRUEVA QUE EL USUARIO NO EXISTE EN LA BASE DE DATOS.
IFNOTEXISTS(SELECT*FROM master.dbo.syslogins WHEREname= @users)
BEGIN
--Si no existe--Se crea el Login en la instancia para que pueda iniciar sesion
DECLARE @CreateLoginStatement nvarchar(200)SET @CreateLoginStatement ='CREATE LOGIN ['+QUOTENAME(@users)+'] WITH PASSWORD ['+QUOTENAME(@password)+'] 'EXECsp_executesql @CreateLoginStatement
--Se crea el usuario en la base de datos
CREATEUSER [@usuario] FORLOGIN [@usuario] WITH DEFAULT_SCHEMA=[dbo]
INSERTINTO userssystems VALUES(@users, @password)
end
END