[qip]

Суть проблемы проста, после уничтожения обьекта сабжевого класса память освобождается не полностью

простой пример для наглядности

Код:

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пользуемой памяти
как быть? =\