Quelltext auslesen

[Chaismo]

Hey ho! ich will aus einem Link gern den Quelltext auslesen und in ein Memo reinschreiben...hab das ganze jetz mal so probiert...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('view-source:'+Edit1.text);
   try
    WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
   except
   end;
   Memo1.PasteFromClipboard;
end;

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;
end.

aber das funktioniert nicht?!
Kann mir jemand sagen was da falsch is bzw. wies rüsch is?!
Danke schonmal im voraus!