Проверка TWebBrowser на пустоту

[xxbesoxx]

просто получаю исходный код страницы.

Тогда вам это функция

 function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
 var
   ps: IPersistStreamInit;
   fs: TFileStream;
   sa: IStream;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   fs := TFileStream.Create(FileName, fmCreate);
   try
     sa := TStreamAdapter.Create(fs, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
   finally
     fs.Free;
   end;
 end;

Вызов так

procedure TForm1.Button3Click(Sender: TObject);
begin
  WB_SaveHTMLCode(Webbrowser1, 'c:\test.txt');
end;

'c:\test.txt' = Файл должен заранее создани и страница который открыть на Webbrowser1 получаешь его код на c:\test.txt там же все есть это http://delphiworld.narod.ru/download...html_code.html