웹페이지와 소스를 같이 볼라구 하는데용.
아래 소스좀 봐주세용..
무한 루프로 빠져버립니다.

procedure TForm1.btnStartClick(Sender: TObject);
var
url : string;
begin
  url := 'http://www.delphi.co.kr';
  MyDocument := WebBrowser1.Document;
  while WebBrowser1.ReadyState <> 4 do
  begin
  WebBrowser1.Navigate(url, flags, targetframename, postdata, headers);
  end;

  if WebBrowser1.ReadyState = 4 then
  begin
  lblStatus.Caption := '4';
  Richedit1.Clear;
  Richedit1.Lines.Add(MyDocument.Body.InnerHTML);  // HTML 소스
  end;

참고로 readystate는 다음과 같답니다.
EADYSTATE_UNINITIALIZED        0        Default initialization state. The Control has not begun loading any properties.

READYSTATE_LOADING        1        The control is loading its properties.
READYSTATE_LOADED        2        The control has initialized its properties but is not yet interactive.
READYSTATE_INTERACTIVE        3        The control is interactive, but not all of its data is available. (It is downloading a document or frame).
READYSTATE_COMPLETE        4        The control is interactive and all of its data is available. (The current document is fully downloaded).