Свой простецкий веб-браузер(обозреватель)

[_-Re@l-_]

Вот покопался в справке С#, и нашёл в примерах как написать свой простейший браузер. Сделал, понравилось, захотел такое же в Delphi склепать.
Открыл Delphi, немного покопался, нашёл компонент WebBrowser и сделал тоже самое что и в C#, только всё оказалось даже проще! Вполне можно переходить на разные ссылки! Если кому надо, пример во вложении.
Но вот возникли пара вопросов:
1. Как сделать такую фичу, как просмотр исходного кода страницы?(как в Опере и т.д.)
2. После ответа на первый вопрос задам второй

[Alex Cones]

Если кому надо, пример во вложении.

?

procedure SaveHTMLSourceToFile(const FileName: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
MessageBox(Form1.Handle, 'Fail to save HTML source', 'Error', 0);
finally
FileStream.Free;
end;
end;

[russian-stalker]

showmessage(WebBrowser1.OleObject.Document.documentElement.innerHTML);