AnnGetDistance example for C++ Builder

void TForm1::ExampleAnnGetDistance ( HANNOBJECT hObject )
{
   L_DOUBLE dDis1;
   L_DOUBLE dDis2;

   LEADAnn1->AnnGetDistance ( hObject, dDis1, dDis2 );
   ShowMessage ( "Distance: " + FloatToStr(dDis1) + "\n" +
                 "Gauge Length: " +  FloatToStr(dDis2) );
}