#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;