Fórum Procedure do SQL, estou com problemas para chamala #162719

Tenho esta procedure no Banco de Dados e agora preciso montar o comando para que ela possa ser executada, mas estou com problemas, não consigo determinar qual o paramentro correto que devo passar, abaixo desta procedure, esta o codigo que utilizo para a inserção de um novo item.
Aguardo Edmar


CREATE procedure cp_newItem @Cod_ped char(5), @Cod_prod char(9), @Qtde char(5)
as
begin
insert into CadItens
values (@Cod_ped, @Cod_prod, @Qtde) ;
end ;
GO







procedure TfrmPrincipal.btnNovoItemClick(Sender: TObject);
var
Cod_Ped, NomeProd, Qtde : String ;
SQL : String ;
begin
// atribui o campo Cod_ped convertido em string a variavel Cod_ped
Cod_Ped := DMPrincipal.ADOdsPedidosCod_ped.AsString ;
NomeProd := Trim(DBLookupComboBoxProduto.Text) ;
Qtde := Trim(editQtde.Text) ;
if ( (Length(NomeProd) = 0) and (Length(Qtde) = 0 ) ) then
Exit ;

if not ADOdsInsereItens.Active then
ADOdsInsereItens.Active := true ;


SQL := ´INSERT INTO CadItens (Cod_ped,Cod_prod, Quantidade) VALUES (:ped,:prod,:unid)´ ;

with ADOCommandItens do
begin
CommandText := SQL ;
Parameters.ParamByName(´ped´).Value := Cod_Ped ;
Parameters.ParamByName(´prod´).Value := NomeProd ;
Parameters.ParamByName(´unid´).Value := Qtde ;
end;

try
ADOCommandItens.Execute ;
DBLookupComboBoxProduto.SetFocus ;
editQtde.Clear ;
with DMPrincipal.ADOdsItens do
begin
Close ;
Open ;
end; // with
// ADOdsInsereItens.Active := false ;
except
on e:Exception do
begin
Application.MessageBox(´Item já Cadastrado !´,´A T E N Ç Ã O ! ! !´,MB_ICONEXCLAMATION + MB_OK) ;
end ; // on
end; // try

end;