Guardar usando store procedure

[ronimaxh]

Saludos amigos del club, estoy comenzando a utilizar guardar usando store proceduer no se que me falta me da el error presentado mas abajo:

Código Delphi [-]
//mi codigo:
 with frmdata do
       begin
         sp_sql.ProcedureName:='SP_guarda_tipo_persona';
         sp_sql.Parameters.ParamByName('@desc_tipo').Value:=FrmTiposPersona.desc_tipo_edit.Text;
         sp_sql.Prepared:= True;
         try
           if not conexion.InTransaction=true then conexion.BeginTrans;
           sp_sql.ExecProc;
           conexion.CommitTrans;
         except
           conexion.RollbackTrans;
         end;
       end;

//Error que da:
---------------------------
Debugger Exception Notification
---------------------------
Project Simotesis.exe raised exception class EDatabaseError with message 'sp_sql: Parameter '@desc_tipo' not found'.
---------------------------
Break   Continue   Help   
---------------------------

Nota: Estoy usando componentes ado, base de datos sqlexpress