OnAnnToolChecked example for Delphi

procedure TForm1.LEADAnn1AnnToolChecked(iTool: Integer);
var
   TestString: String;
begin
   case iTool of
      ANNTOOL_SELECT:
      begin
         TestString:= 'Selection pointer tool';
      end;

      ANNTOOL_LINE:
      begin
         TestString:= 'Line tool';
      end;

      ANNTOOL_RECT:
      begin
           TestString:= 'Rectangle tool';
      end;

      ANNTOOL_ELLIPSE:
      begin
         TestString:= 'Ellipse tool';
      end;

      //.
      //.
      //.
      else
           TestString:= 'User defined tool';
   end;
   ShowMessage ( TestString );
end;