De DBX para ADO

[Paulao]

Tengo una Function escrita para DBExpress y necesito cambiar una linea para ADO, pero no estoy tenendo exito. La Function esta abajo:

function TRDM_Consulta.dspDataRequestParam(Sender: TObject;
Input: OleVariant): OleVariant;
var
i: Integer;
Param: string;
begin
i := 1;
Param := PegaItemLista(i, Input, ';');
while Param <> '' do
begin
TSQLQuery(TDataSetProvider(Sender).DataSet).Params[i - 1].AsFMTBCD := StrToBcd(Param);
Inc(i);
Param := PegaItemLista(i, Input, ';');
end;
end;

El problema esta en la linea en rojo, con la propriedad Params del DBX y en la propriedad Parameters de ADO yo no consegui hacer el mismo codigo.

[Neftali [Germán.Estévez]]

En ADO, primero debes crear los parámetros del tipo necesario y luego asignarles el valor:

Código Delphi [-]
var
  PObjectType:TParameter;
begin

PObjectType := fSP.Parameters.CreateParameter(NOMBRE,
      ftString, pdInput, 50, STR_EMPTY);
PObjectType.Value := 'Pepito';