ADOStoredProc.Close;
  ADOStoredProc.Parameters.Clear;
  ADOStoredProc.ProcedureName:='MyPROCEDURE';
  ADOStoredProc.Parameters.Refresh;
  ADOStoredProc.Parameters.ParamValues['@PA'] :=FPA;
  ADOStoredProc.Active:=true;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.ADD('MyPROCEDURE '''+FPA+'''');
  ADOQuery.Open;