[NumLock]

Код:

var
  document: OleVariant;
begin
  if WebBrowser1.Document=nil then WebBrowser1.Navigate('about:blank');
  while WebBrowser1.ReadyState<READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
    
  document:=WebBrowser1.Document;
  document.clear;
  document.open;
  document.write(Memo1.Lines.Text);
  document.close;
  while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do
    Application.ProcessMessages;
end;