передача переменной с сервера на клиент

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Execute(TIdContext *AContext)
{
int a ;
String pere;
a=StrToInt(AContext->Connection->IOHandler->ReadLn());
if(a==10)
{
pere = "Выплата повышенной степенди на 20% ";
}
if(a==9)
{
pere = "Выплата повышенной степендии на 10% ";
}
  if(4 <= a && a <= 8)
{
pere = "Выплата средней степендии";
}
 
if(a<4)
{
pere ="Лишить степендии";
}
AContext->Connection->IOHandler->WriteLn(pere) ;
AContext->Connection->Disconnect();
}
 
 
код клиента 
void __fastcall TClient::Label9Click(TObject *Sender)
{
String sh;
int max = 0;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT Max(Ocenka) AS CHISLO FROM  tab1");
ADOQuery1->Open();
max = ADOQuery1->FieldByName("CHISLO")->AsInteger;
Label7->Caption=(IntToStr(max));
//на сервер
IdTCPClient1->Connect();
IdTCPClient1->IOHandler->WriteLn(max);
 
sh = IdTCPClient1->IOHandler->ReadLn();
 
IdTCPClient1->Disconnect();
ShowMessage(VariantToStr(sh));
 
 
 
}