Foros Club Delphi - De DBX para ADO

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - De DBX para ADO (https://www.clubdelphi.com/foros/showthread.php?t=58970)

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

Cita:

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.

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';