EnableZoomInRect example for Delphi

This example toggles the EnableZoomInRect property.

{Toggle the ZoomInRect setting}
           If (Lead1.EnableZoomInRect = True) Then
               Lead1.EnableZoomInRect := False
           Else
               Lead1.EnableZoomInRect := True;