在delphi中编写Client-Server应用程序

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Client connected: ' + Socket.RemoteHost);
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Client disconnected: ' + Socket.RemoteHost);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Received from ' + Socket.RemoteHost + ': ' + Socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not IdTCPClient1.Connected then
  begin
    try
      IdTCPClient1.Connect;
      IdTCPClient1.IOHandler.WriteLn(Edit1.Text);
      Memo1.Lines.Add('Sent: ' + Edit1.Text);
    except
      on E: Exception do
      begin
        Memo1.Lines.Add('Error: ' + E.Message);
      end;
    end;
  end;
end;