AnnContainer example for Delphi

procedure TForm1.LEADRasterOLEDB1DataLoaded(Sender: TObject;
  nStatus: Smallint);
var
   sRet: Smallint ;
begin
   if (nStatus = 0) then
   begin
      RasterAnn.AnnContainer := 0;
      RasterAnn.AnnContainer := LEADRasterOLEDB1.AnnContainer;
   end
   else
   begin
      if (nStatus <> ERROR_FILENOTFOUND) Then //if it's not an empty record
      ShowMessage ( 'Error loading from database!') ;
   end;
   LEADRasterView1.ForceRepaint (sRet);
end;