Hello,

Try the following:

procedure TForm1.Button1Click(Sender: TObject);
var
vFindResult : FindResults;
vStreetAddress : StreetAddress;
vResult : string;
i : integer;
iOle : OleVariant
begin
for i := 1 to vFindResult.Count do
begin
iOle := i;

// To access name result:
vResult := (vFindResult[iOle] as Location).Name;

// Or to access streetaddres result:
vStreetAddress := (vFindResult[iOle] as Location).StreetAddress;
if Assigned(vStreetAddress) then
begin
...
end;
end;
end;

Greetings, Jack.