Клиент-серверное приложение

var
  Form3: TForm3;
  count:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.clnError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if ErrorEvent= eeConnect
 then
 begin
   ShowMessage('Ошибка соединения. Запустите сервер!');
   ErrorCode :=0;
  end;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
cln.Address :='127.0.0.1'; //для локального соединения
cln.Port :=1100; //такой же как у сервераtry
cln.Open; //открываем соединение с сервером
end;
 
procedure TForm3.Image1Click(Sender: TObject);
begin
count:=count+1;
cln.Socket.SendText(inttostr(count));
end;
 
procedure TForm3.Image2Click(Sender: TObject);
begin
count:=count+1;
cln.Socket.SendText(inttostr(count));
end;
 
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
Srv1.Active :=True;  //запускаем сервер
end;
 
//обрабатываем подключение клиента
procedure TForm1.Srv1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
mmo1.Lines.Add('Подключился клиент с IP адресом '+Socket.RemoteAddress);
end;
 
procedure TForm1.Srv1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
msg:string;
begin
msg :=Socket.ReceiveText;  //читаем сообщение от клиента
label1.Caption:=msg; //выводим его в поле
end;
 
procedure TForm1.Srv1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
mmo1.Lines.Add('Клиент '+socket.RemoteAddress+' отключился от сервера.')
end;
 
end.

procedure TForm1.Srv1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
msg:string;
begin
msg :=Socket.ReceiveText;  //читаем сообщение от клиента
case msg[1] of
1: label1.Caption:=msg[2]; //выводим его в поле
2: label2.Caption:=msg[2]; //выводим его в поле
3: label3.Caption:=msg[2]; //выводим его в поле
end;
end;

case msg[1] of
'1': label1.Caption:=msg[2]; //выводим его в поле
'2': label2.Caption:=msg[2]; //выводим его в поле
'3': label3.Caption:=msg[2]; //выводим его в поле
end;

case StrToInt(msg[1]) of
1: label1.Caption:=msg[2]; //выводим его в поле
2: label2.Caption:=msg[2]; //выводим его в поле
3: label3.Caption:=msg[2]; //выводим его в поле
end;

procedure TForm3.Image1Click(Sender: TObject);
begin
count:=count+1;
cln.Socket.SendText('1'+inttostr(count));
end;
 
procedure TForm3.Image2Click(Sender: TObject);
begin
count:=count+1;
cln.Socket.SendText('2'+inttostr(count));
end;