procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Host := 'xxxx'; //URL
NMHTTP1.Port := 13;
NMHTTP1.ReportLevel := 1;
NMHTTP1.Timeout := 5000;
NMHTTP1.Connect ;
end;
procedure TForm1.NMHTTP1Connect(Sender: TObject);
begin
caption := NMHTTP1.RemoteIP ;
end;