#pas
procedure THIMemoryStream._work_doCopy;
var St:PStream;
begin
_prop_Stream.Position := 0;
St := ReadStream(_data,_data_SrcStream,nil);
if St <> nil then
Stream2Stream(_prop_Stream,St,St.Size);
end;

#pas
function SaveParam(..........):string;
var k:string;
rs:PChar;
begin
k := '';
with pr^ do
case DataType of
......
data_stream,data_jpeg:
begin
rs := cgt.resAddStream(pr);
if Assigned(rs) then
k := 'LoadResStream(''' + rs + ''')'
else k := 'NewMemoryStream'; //!!! Добавил пока эту строку - ее не было
end;
......
end;
if InsertPropName and(k <> '') then
Result := '_prop_' + pr.Name + ' := ' + k
else Result := k;
end;

#pas
destructor THIMemoryStream.Destroy;
begin
  _prop_Stream.Free;
  inherited;
end;