Werte an geklickten Links im Browser anhängen

[API]

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
CONST
  FORUM_URL = 'http://www. ....';
  ANSICHT = '.........';
begin
 if copy(url,1,length(FORUM_URL)) = FORUM_URL then
  if pos(ANSICHT, URL) = 0 then
  begin
   Cancel := True;
   URL := URL + ANSICHT;
   WebBrowser1.Navigate(URL);
  end;
end;