delphi – 字符串到TStream

我正在尝试将字符串转换为TStream.我的下面的代码在CopyFrom行上给我一个“抽象错误”消息.我在这里碰壁砖,有关如何解决这个问题的想法吗？

procedure StringToStream(const AString: String; out AStream: TStream);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create(AString);
  try
    Ss.Position := 0;
    AStream.CopyFrom(SS,Ss.SizE);  //This is where the "Abstract Error" gets thrown
  finally
    Ss.Free;
  end;
end;