Code:

procedure TForm1.LoadHTMLString(sHTML: String);

var

Flags, TargetFrameName, PostData, Headers: OleVariant;

begin

WebBrowser1.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, Headers)

end;