var
 iPic: IPictureDisp;

       iPic := Rasterizer_1.getDeviceNPicture( k ) as IPictureDisp;

       APic := TPicture.Create;
       try
         SetOlePicture(APic, iPic);

         Image1.Picture := nil;
         Image1.Picture.Assign( APic);
         Image1.Update;

       finally
         FreeAndNil( APic );
       end;

      OG := TOleGraphic.Create;
       try
         OG.Picture := iPic As IPicture;

         { convert to a TBitmap, so it can be saved in BMP format }
         bmp := TBitmap.Create;
         try
           bmp.PixelFormat := pf24Bit;
           bmp.Width := OG.Width;
           bmp.Height := OG.Height;
           bmp.Canvas.Draw(0, 0, OG);

           fs1 := 'Channel-' + chName + '.bmp';
           bmp.SaveToFile(fs1);
         finally
           FreeAndNil(bmp);
         end;
       finally
         FreeAndNil(OG);
       end;
     end;