procedure TForm1.Button1Click(Sender: TObject);
var
LocalName, LocalIp, RemoteIp, RemoteHost:string;
begin
LocalName := TCP1.LocalHostName;
LocalIp := TCP1.LocalIP ;
RemoteIp := TCP1.RemoteHostIP ;
RemoteHost:= TCP1.RemoteHost ;
Canvas.TextOut(20,20,'Local Name : '+LocalName);
Canvas.TextOut(20,50,'Local Ip : '+LocalIp);
Canvas.TextOut(20,80,'Remote Ip : '+RemoteIp);
Canvas.TextOut(20,120,'Remote Host :'+RemoteHost);
end;