How can I show the source of a HTML-site in a TMemo?

Problem/Question/Abstract:

How can I show the source of a HTML-site in a TMemo?

Answer:

// You need a TMemo, a TButton und a NMHTTP

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHTTP1.Get('www.dev4u.ch');
  memo1.Text := NMHTTP1.Body
end;