Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OleVariant;
Url, Ref: string;
begin
flags := '1';
targetframename := '';
postdata := '';
url := 'http://www.stranka.sk/x.html';
ref := 'http://www.stranka.sk';
headers := 'Referer: ' + ref + '#10' + '#13';
webbrowser1.Navigate(url, flags, targetframename, postdata, headers);
end;