var
   RT: Route;
   Loc: Location;
   Results: FindResults;
   i: OleVariant;
begin
   RT := FMap.ActiveRoute;
   RT.Clear;
   i := 1;

   Results := FMap.FindAddressResults(Street1, Place1, '', '', PostC1, GeoCountryBelgium);
   if Results.ResultsQuality = geoNoResults then
      Exit;
   Loc := Location(Results.Item[i]);
   RT.Waypoints.Add(Loc, '');

   Results := FMap.FindAddressResults(Street2, Place2, '', '', PostC2, GeoCountryBelgium);
   if Results.ResultsQuality = geoNoResults then
      Exit;
   Loc := Location(Results.Item[i]);
   RT.Waypoints.Add(Loc, '');

   RT.Calculate;