Getting an overlay bitmap list Example for Delphi

var
   nRet: Integer;
   OverlayAttributesDS: LEADOverlayAttributes;
   cs: String;
begin
   nRet:= LEADDicomDS1.GetOverlayAttributes (0, 0);
   if(nRet <> 0)then
   begin
      ShowMessage('error');
      Exit;
   end;
   OverlayAttributesDS:= LEADDicomDS1.OverlayAttributes;
   cs:= LEADDicomDS1.OverlayActivationLayer[0];
   ShowMessage(cs);

   nRet:= LEADDicomDS1.GetOverlayBitmapList (0, 0, OverlayAttributesDS.NumberFramesInOverlay, 0);
   if(nRet <> 0)then
   begin
      ShowMessage('error');
      Exit;
   end;
   LEADRasterView1.Raster.BitmapList:= LEADDicomDS1.OverlayBitmapList;
end;