[BloodFooria]

Код:

var List : TStringList;
begin
  List:= TStringList.Create;
  < Присвоение строк (если это необходимо) >
  List.SaveToFile('temp.html');
  WebBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'temp.html');
  DeleteFile('temp.html');
end;