indy的idTcpServer WriteBuffer 有内存泄露？

用的是indy的demo程序改的，idtcpserver在接到客户端消息后，再返回客户端这个消息，服务器的内存一直在增加。如果不返回消息那么内存不增加。 为什么？？？？？

结构体：
TCCPacked = record
lenLow: Byte;
lenHigh: Byte;
OPR: Byte;
ERR: Byte;
CMD: Byte;
end;
服务端代码：
procedure TServerFrmMain.ServerExecute(AThread: TIdPeerThread);
var
TCCPACK :TCCpacked;
size: Integer;
dataarray: array of byte;
begin
if not AThread.Terminated and AThread.Connection.Connected then
begin
AThread.Connection.ReadBuffer (TCCPACK, SizeOf (TCCPacked));
size := makeword(tccpack.lenlow,tccpack.lenhigh);
setlength(dataarray,size-3); //获取长度
AThread.Connection.ReadBuffer (dataarray[0], size-3);

AThread.Connection.WriteBuffer (TCCPACK, SizeOf (TCCPacked), true); //注释掉这句话就不会内存泄露
end;
end;
客户端代码：
发送部分：
procedure TClientFrmMain.ButtonSendClick(Sender: TObject);
var
CommBlock : TCCpacked;
s : string;
sl : TstringList;
dataarray : array of byte;
i ,size: integer;
begin
CommBlock.OPR := $01;
CommBlock.ERR := $00;
CommBlock.CMD := strtoint(cbb_cmd.Text);

s := EditMessage.Text ;
sl := TstringList.Create;
Geteveryword(s,sl,' ');

setlength(dataarray,sl.Count);
for i := 0 to sl.Count -1 do begin
dataarray[i] := strtoint( sl.Strings[i]);
end;

size := sl.Count + 3;
sl.Free;
CommBlock.lenLow := Lo(size); // assign the data
CommBlock.lenHigh := Hi(size);
//先发送数据头
Client.WriteBuffer (CommBlock, SizeOf (CommBlock), true);
//再发送Data部分
Client.WriteBuffer (dataarray[0] , length (dataarray), true);
// Client.WriteBuffer (CommBlock, SizeOf (CommBlock), true);
end;
接收部分：
procedure TClientHandleThread.HandleInput;
begin
ClientFrmMain.mmo1.Lines.Add('Server Return: ' + inttostr(cb.ERR));
end;

procedure TClientHandleThread.Execute;
begin
while not Terminated do
begin
if not ClientFrmMain.Client.Connected then
Terminate
else
try
ClientFrmMain.Client.ReadBuffer(CB, SizeOf (CB));
Synchronize(HandleInput);
except
end;
end;
end;

解决重赏！！