memory leak

Hi All,

I need a help.
Only with this code in TCPExecute my program is memory leaking.
Some help?

start with 4500 k grow to 11.000k and crunch.

Thks
Andrey


procedure TForm1.TCP1Execute(AThread: TIdPeerThread);
var s : string;
begin
  s := '';
  s := AThread.Connection.CurrentReadBuffer;

//if checkbox1.Checked then form1.Memo1.lines.add('Dados:'+s);
  //processa(s);
  //ChecaComando(s);

  if memo1.Lines.Count > 500 then memo1.Clear;
end;