Código Delphi [-]with ADOQuery1 do begin Parameters.parambyname('PARAMETRO').Value := valor; ... end;
with ADOQuery1 do begin Parameters.parambyname('PARAMETRO').Value := valor; ... end;