LAN Web TCP Delphi

Title: show the source code of a webpage in a Memo?
// You need a TMemo, a TButton und a NMHTTP
// Man braucht ein TMemo, einen TButton und eine TNMHTTP
procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get('www.swissdelphicenter.ch');
memo1.Text := NMHTTP1.Body
end;