Copiar Html do site

Estou querendo saber como faço para baixar um site para meu pc, o arquivo html mesmo.

Exemplo: digito www.dhiogo.com.br em um edit e ao apertar um botao o codigo html desse site aparecer em um memo.

eu tentei com esse codigo:

uses URLMon;

function Download(Arquivo, Local: String): Boolean;
begin
Result:=False;
Result:=URLDownloadToFile(nil,PChar(´http://www.deephi.kit.net/´+Arquivo),PChar(Local),0,nil)=0;
end;

mas não paixou todos os site. especialmente fotologs do fotolog.net

e usar o webbrowser fico muito ruim pq ele começa a carregar as imagens e outras coisas q para mim nao servirao de nada, eu apenas preciso do texto em html.

Espero por uma ajuda.
Obrigado