GetVRCount Example for Delphi

var
   nCount: Integer;
begin
   nCount:= LEADDicomDS1.GetVRCount ();
   ShowMessage('There are ' + IntToStr(nCount) + ' VR Items.');
end;