Суть проблемы проста, после уничтожения обьекта сабжевого класса память освобождается не полностью
простой пример для наглядности
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
S: TClientSocket;
begin
S := TClientSocket.Create(nil);
S.Address := '127.0.0.1';
S.Port := 0; //любой открытый порт
S.Open;
S.Close;
S.Free;
end;
при каждом вызове прибавляется ~4 kb иcпользуемой памяти
как быть? =\