AnnSetSecondaryBitmap example for Delphi

Procedure TForm1.AnnSetSecondaryBitmap(hPushPin: HANNOBJECT);
var
   SecondaryBitmap: TBitmapHandle;
begin
   LEADAnn1.AnnSetSecondaryBitmap(hPushPin, LEADAnn2.Bitmap, False);
   LEADAnn1.AnnUserMode:= ANNUSERMODE_RUN;
   ShowMessage('Secondary bitmap set');
   LEADAnn1.AnnGetSecondaryBitmap(hPushPin, SecondaryBitmap);
   LEADAnn1.Bitmap:= SecondaryBitmap;
end;