[alanatolich]

Подскажите пожалуйста,
как создать компонент TClientSocket, с добавленным к нему полем типа TStringStream

вижу этот код таким

Код:

  TMyClientSocket = class(TClientSocket)
    private
      SS:TStringStream;
    protected
    public
    published
    end;

использую так

Код:

var
test1:TMyClientSocket;
begin
   test1.SS:=TStringStream.Create;
   test1.SS.WriteString('test');
   test1.SS.SaveToFile(ExtractFilePath(ParamStr(0))+'tss.txt');
   test1.SS.Free;
end; 

Но вылетает ошибка