возвращение функции значения TStringSream

[Lokos]

Здравствуйте.
Как это можно осуществить.
Функция возвращает из длл вот так

function TakeTextZap(Acontext:TIdContext;Console:TMemo):TStringStream;
var buf:string;
s:TStringStream;
begin
   s:=TStringStream.Create;
   SendTextClient(AContext,'Zp_Text_ok');
   Acontext.Connection.IOHandler.ReadStream(s);
   s.Position:=0;
   SendTextClient(AContext,'Text_ok_Whot_foto');
   TakeTextZap.Write(s,s.Size);
   s.Free;
end;

как это возвращаемое значение назначить переменной типа TStringStream

[psycho-coder]

Я не вижу что бы что то возвращалось
Может все таки так?

function TakeTextZap(Acontext:TIdContext;Console:TMemo):TStringStream;
var buf:string;
s:TStringStream;
begin
   s:=TStringStream.Create;
   SendTextClient(AContext,'Zp_Text_ok');
   Acontext.Connection.IOHandler.ReadStream(s);
   s.Position:=0;
   SendTextClient(AContext,'Text_ok_Whot_foto');
   TakeTextZap.Write(s,s.Size);
   Result.Assign(s);
   // или
   // Result := s; // Но это вроде как не правильно.
   s.Free;
end;

Использовать.

var
  s: TStringStream;
begin
  s := TakeTextZap(<что-то>; Memo1);
end;

[Lokos]

Result.assign(s);//нет такого:(
Result:=s;//нечего не передает

Возвращал значения всегда таким образом имя функции := значение

[psycho-coder]

Неуглядел(

как это возвращаемое значение назначить переменной типа TStringStream

Тогда в чем проблема? Присвоить переменной результат выполнения функции. Или сделать Assign.
Или я опять что-то не понял?

[Lokos]

Сообщение от psycho-coder

Неуглядел(


Тогда в чем проблема? Присвоить переменной результат выполнения функции. Или сделать Assign.
Или я опять что-то не понял?

вот и нужно переменной вернуть результат выплнения ффункции только хз как(((

[psycho-coder]

Сообщение от psycho-coder

Использовать.

var
  s: TStringStream;
begin
  s := TakeTextZap(<что-то>; Memo1);
end;

Я же написал выше

[Аватар]

или просто:

Result:=TStringStream.Create;

и далее работать с Result вместо s и не надо Free

В вызывающей программе:

var  x: TStringStream;
...
x:=TakeTextZap(...);
...
X.Free;