var
   i: OleVariant;
   Loc: Variant;
   AddrResults: FindResults;
   Country: OleVariant;
begin
      // fill in City, Street, etc...
      AddrResults := Map.FindAddressResults(Street, City, '', '', PostalCode, Country);

      if AddrResults.Count > 0 then
         for n := 1 to AddrResults.Count do begin
            i := n;
            Loc := AddrResults.Item[i];

            // here you have all these things:
            // Loc.StreetAddress.Street;
            // Loc.StreetAddress.City;
            // Loc.StreetAddress.postalcode;