Ado 2.7 affect parameters of my "procedure stokée"

dav

Here my code, I cannot affect the parameters of my procedures stokéee. If somebody can give me a blow of hand In advance thank you

connexion Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Connection

VParamConnexion Variant
RequeteEntete Variant
cmdSql Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Command
_parametre Automation 'Microsoft ActiveX Data Objects 2.7 Library'._Parameter
Parametre Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Parameter
Var_connexion Variant
Tabparameters Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Parameters


CLEAR(connexion);
CREATE(connexion);
connexion.ConnectionString := VParamConnexion;
connexion.Open;

CLEAR(cmdSql);
CREATE(cmdSql);


Var_connexion := connexion ;
cmdSql.ActiveConnection := Var_connexion;

//cmdSql.CommandText := 'Aff_AjoutSitutation';

cmdSql.CommandText := 'AjoutSitutation2';
cmdSql.CommandType := 4; // adCmdStoredProc

//cmdSql.Prepared := TRUE;



//CREATE( _parametre);
//CREATE(Tabparameters);

//_parametre.AppendChunk(cmdSql.CreateParameter('@idAffaire',3,1,4,2));
//Tabparameters.Append(_parametre);

Tabparameters.Append := cmdSql.CreateParameter('@idAffaire',3,1,4,2);

//cmdSql.CreateParameter('@idAffaire',3,1,4,2);
cmdSql.Execute(Tabparameters);

{
cmdSql.Parameters(0) := 2;
cmdSql.Parameters(1).value := 1;
cmdSql.Parameters(2).value := '12/07/05';
cmdSql.Parameters(3).value := 'Ref_12';
cmdSql.Parameters(4).value := 10,2;
cmdSql.Parameters(5).value := 10,2;
cmdSql.Parameters(4).value := 10,2;
cmdSql.Parameters(5).value := 10,2;
}