Показать исходный код Web-страницы в TMemo

Оформил: DeeCo

// 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;