AnnGetDistance example for Delphi

Procedure TForm1.ExampleAnnGetDistance ( hObject: HANNOBJECT );
var
   dDis1: L_DOUBLE;
   dDis2: L_DOUBLE;
begin
   LEADAnn1.AnnGetDistance ( hObject, dDis1, dDis2 );
   ShowMessage ( 'Distance: ' + FloatToStr(dDis1) + Chr(13) +
                 'Gauge Length: ' +  FloatToStr(dDis2) );
end;