Voir le source d'une page HTML dans un WebBrowser

procedure TMainForm.FetchPage;
Var
VDoc : OleVariant;
Begin
VDoc := WebBrowser1.Document;
Memo1.Clear;
Memo1.Text := VDoc.Script.Document.Body.InnerHTML;
End;

procedure TMainForm.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
FetchPage;
end;