Delphi - WebBrowser: duda

Buenas.

Quiero crear una aplicación que contenga un WebBrowser el cual cargue una página web. Hasta ahí todo fácil... pero el problema viene cuando quiero ver el código fuente de esa página (como si ahora pulsáramos botón derecho, ' ver código fuente').

Gracias por su tiempo

El siguiente codigo permite ver el codigo fuente en un Memo:

{ Internet: source:
http://www.cpcug.org/user/clemenzi/technical/Databases/Delphi/WebClient
s.html }
var DOM : variant;
begin
DOM := WebBrowser1.Document;
if Webbrowser1.LocationURL <> '' then begin
Memo1.Text := DOM.Body.OuterHTML;
end
else begin
ShowMessage('No page available!');
end;
end;

Gracias!!!