type
  TForm1 = class(TForm)
    TcpClient1: TTcpClient;