program winsock;
{$APPTYPE CONSOLE}
uses
  sysutils, winsock, windows;
const
  port = 1221;
var
  D:WSAData;
  S:TSocket;
  A:sockaddr_in;
  sendbuf:String;
  ip:string;
begin
sendbuf:='Hello world!!!';
writeln('IP:');
Readln(ip);
if WSAStartup(makeword(1,1),D)<>0 then
begin
  writeln('error..');
  exit;
end;
  S:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  A.sin_family:=AF_INET;
  A.sin_addr.S_addr:=inet_addr(pchar(ip));
  if S=INVALID_SOCKET then writeln('Socket error.');
  A.sin_port:=htons(port);
  if connect(S,A,sizeof(TSockAddr))=0 then
      Writeln('Connect!!!!');
  Send(S,sendbuf,Length(sendbuf),0);
WSACleanup;
readln; readln;
end.