CodePudding user response:

 procedure TMainForm. FindAddress; 
Var 
Flags: OLEVariant; 
The begin 
Flags:=0; 
UpdateCombo:=True; 
WebBrowser1. Navigate (WideString (Urls. Text), Flags, Flags, Flags, Flags); 
end;