procedure TForm1.WebBrowser1DidFinishLoad(ASender: TObject);
begin
if WebBrowser1.URL<>'about:blank' then  //or check your link
  begin
  WebBrowser1.URL:='about:blank';       //or your link
  Application.ProcessMessages;
  WebBrowser1.LoadFromStrings('...our link...','http://mypage.html');
  end;
end;