GetVRCount Example for Delphi

var
   uCount: Cardinal;
begin
   uCount := LEADDicom1.GetVRCount();
   ShowMessage('There are ' + IntToStr(uCount) + ' VR Items.');
end;