with AddClass(TADStoredProc, 'TDataset') do begin
//      AddMethod('function Locate(const KeyFields: string; const KeyValues: Variant;Options: TLocateOptions): Boolean', CallMethod);

      AddMethod('procedure ExecProc', CallMethod);
      AddMethod('function ParamByName(const Value: string): TADParam', CallMethod);
      AddMethod('function Params[const Value: integer]: TADParam', CallMethod);
      AddMethod('procedure Prepare', CallMethod);
      AddProperty('ParamCount', 'Word', GetProp, nil);
    end;

ReadSpec.Locate('ID', ItemSpecAdd.FieldByName('ID').Value, 0);