Всё очень просто, нужно было лишь написать так:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WebBrowser1.Navigate(
ExtractFilePath(Application.ExeName)+'temp/tp.html');
end;
_________
т.е. веб браузер не знал точно откуда брать путь к этой странице
