with ADOStoredProc do
begin
  ProcedureName := 'test';
  Parameters.ParamValue['@p1'] := p1;
  Parameters.ParamValue['@p2'] := p2;
  Parameters.ParamValue['@p3'] := p3;
  ExecProc;
end;