MapForums

procedure TMain.FormCreate(Sender: TObject);
begin
   AllocConsole;
end;

// This is a callback function.
// Just in case mappoint produces an exception then we can display it
procedure TMain.MPError(Sender: TObject; E: Exception);
begin
   WriteLn(E.ClassName + ' ' + E.Message);
end;

procedure TMain.TestBtnClick(Sender: TObject);
var
   MP : TMapPoint;
   Lat, Lon: Double;
   Streets: TStrings;
   Street, Direction: string;
   Distance: integer;
   n: integer;
begin
   Streets := TStringList.Create;
   MP := TMapPoint.Create(MPError);
   try
      Lat := 51.2497;
      Lon := 4.4888;
      MP.GetStreetAddr(Lat, Lon, Streets, Direction, Distance);

      if Streets.Count = 0 then begin
         WriteLn('No match found');
         Exit;
      end;

      // We can have more than 1 streetname in the stringlist.
      // In most cases the longest name is the most detailed
      // So we display only the most detailed.

      Street := '';
      for n := 0 to Streets.Count - 1 do
         if Length(Streets[n]) > Length(Street) then
            Street := Streets[n];

      WriteLn('Point is ' + IntToStr(Distance) + ' meter ' + Direction + ' from ' + Street);
   finally
      MP.Free;
      Streets.Free;
   end;