Problemas com o WebBrowser

Sou iniciante.
Por quê tenho que clicar 2 vezes no Button1, no código abaixo?
A idéia era clicar uma única vez e me fosse mostrado no WebBrowser a página HTML e no Memo1 o código fonte, mas tenho que clicar 2 vezes, na primeira abre a HTML e já dá a mensagem ´´No page available´ e só no segundo clique é que me mostra o código. Alguém pode me dar uma ajuda? Abaixo está o código do Button1:

[color=blue:b23550a663][b:b23550a663]procedure TForm1.Button1Click(Sender: TObject);
begin
TheURL := ´http://www1.caixa.gov.br/loterias/resultados/asp/megasena.asp´;
WebBrowser1.Navigate(TheURL);
begin
CodFont := WebBrowser1.Document;
if Webbrowser1.LocationURL <> ´´ then begin
Memo1.Text := CodFont.Body.OuterHTML;
end
else begin
ShowMessage(´No page available!´);
end
end;
end;[/b:b23550a663][/color:b23550a663]

Agradeço.