Mappoint 2004 FindadressResults>0

[Memo]

Hallo,

bislang gabs ja erst eine einzige Frage zu Mappoint(und die blieb unbeantwortet), aber ich versuchs trotzdem mal.

Ich versuche eine Routenplanung zusammen zu stellen.

Code:

procedure TForm1.Button3Click(Sender: TObject);
var  Adresse : FindResults;
     mpRoute : Route;
     oVar : OleVariant;
begin
  mySqlQuery1.DisableControls;
    mpRoute := FMap.ActiveRoute;
    mpRoute.Clear;
    mysqlquery1.Open;
    mysqlquery1.First;
    While not mysqlquery1.Eof do
    begin
      oVar := 1;
      //schauen ob die Adresse existiert 
      Adresse := FMap.FindAddressResults(mysqlquery1Strasse.AsString,mysqlquery1Ort.AsString,'','',mysqlQuery1PLZ.AsString,geoCountryGermany);
       //wenn sie existiert soll ein Waypoint hinzugefügt werden
       if Adresse.Count>0 then
        mpRoute.Waypoints.Add(FMap.FindResults(mysqlQuery1PLZ.asstring+','+mysqlquery1Ort.AsString).Item[oVar], '');
     mysqlquery1.Next;
    end;
     mpRoute.Calculate;
  mySqlQuery1.EnableControls;

end;

Wenn Adresse.Count mehrere Einträge enthält und ich nicht weiß ob der erste gefundene Eintrag der Richtige ist, wie kann man in den Resultaten von FindadressResult suchen um sich den Eintrag heraus zu picken der dem gesuchten Ort entspricht? Mit obigen Code herhalte ich eigentlich nur eine Routenplanung mit Wegpunkten die der PLZ entsprechen.

Wenn ich versuche den Waypoint so hinzuzufügen:

Code:

mpRoute.Waypoints.Add(FMap.FindAddressResults(mysqlquery1Strasse.AsString,mysqlquery1Ort.AsString,'','',mysqlQuery1PLZ.AsString,geoCountryGermany).Item[oVar], '');

geht die Route sonst wo lang.

Hat das schonmal jemand hinbekommen?