procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHttp1.Get('http://www.xxx.com.tw');
end;
   
procedure TForm1.NMHTTP1Success(Cmd: CmdType);
var sl: TStringList;
begin
  if Cmd =  CmdGet then begin
    sl := TStringList.Create;
    try
      sl.Text := NMHttp1.Body;
      // ...
    finally
      sl.Free;
    end;
  end;
end;