[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.