Fórum passar dois parametros para a procedure.. #193597

Gostaria de saber como faço para passar dois parametros para executar uma stored procedure do sql server ..

ex.
[color=red:b6c0d6abc1][b:b6c0d6abc1]Minha procedure[/b:b6c0d6abc1][/color:b6c0d6abc1]

CREATE PROCEDURE ATUALIZA @DATAATUAL CHAR(10),
@COD CHAR(3) AS
UPDATE CADASTRO SET DATACADASTRO=@DATAATUAL
WHERE CODIGO = @COD

[color=red:b6c0d6abc1][b:b6c0d6abc1]no Delphi estou fazendo da seguinte maneira[/b:b6c0d6abc1][/color:b6c0d6abc1]var COD,Data,DataAtual: string;
begin
COD:= INPUTBOX(´CÓDIGO´,´Insira o código para atualização de data!´,´´);
Data:= datetostr(Now);
DataAtual:= COPY(DATA,4,2)+´/´+COPY(DATA,1,2)+´/´+COPY(DATA,7,4);
QUERYPROC.Close;
QUERYPROC.SQL.Clear;
QUERYPROC.SQL.Add(´EXEC ATUALIZA´+QUOTEDSTR(DataAtual)+QUOTEDSTR(COD));
QUERYPROC.Prepare;
QUERYPROC.ExecSQL;
END;

só que dá o erro Procedure ATUALIZA expects parameter ´@COD´, wich was not supplied