[Lord Skill]

вот такой пример на VB, но надо тоже самое на Delphi

Dim data As String
Dim tdata As String
Dim intEnd As Long

Private Sub Command1_Click()
If Winsock1.State = 8 Or Winsock1.State = 7 Then Exit Sub
data = ""
Winsock1.Connect "163.21.94.59", 80
Do While Not Winsock1.State = 7
    DoEvents
Loop
Winsock1.SendData "GET http://www.ruuter.ee/myip/ HTTP/1.0" + vbCrLf + vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData tdata
data = data + tdata
Text1 = data
End Sub