uses
  SysUtils,Sockets;

type
>  TCPClient1 : TTcpClient;

'=' expected but ':' found