[Drozh]

В папке Demos Delphi описано так

Код:

procedure TForm1.FindAddress;
var
  Flags: OLEVariant;
begin
  Flags := 0;
  WebBrowser1.Navigate(WideString(ComboBox1.Text), Flags, Flags, Flags, Flags);
end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_Return then
  FindAddress;
end;