如果是Applet,就要用TWebBrowser控件了
begin
WebBrowser1.Navigate('http://news.sina.com.cn');
end;
var
s: TStrings;
begin
s := TStringList.Create;
try
s.Add('<html>');
s.Add('<head>');
s.Add('</head>');
s.Add('<body>');
s.Add('this is a test');
s.Add('</body>');
s.Add('</html>');
WebBrowser1.LoadFromHtmlText(s.Text);
finally
s.Free;
end;