请帮我看看下面代码错在那呀??好象是说某个地址怎么了就不能运行了.

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream:tmemorystream;
begin
//把"流"清空；
  Stream := TMemoryStream.Create; //~~Warning
  Stream.Clear;
//把RichEdit1中的文件写到"流"中；
  // try
    RichEdit1.Lines.SaveToStream(stream);
    //回到"流"的起始位置；
    Stream.Position:=0;
      //把流写入RichEdit2中；
      RichEdit2.Lines.LoadFromStream(Stream);
  //finally
Stream.free /// ~~~Warning
//end;
end;你牛B，问题不给分？！我最近穷得死....

Answer 1

同意CoolSlob(夕阳无限好，只是今黄昏----西下夕阳)
要创建！！！

Answer 2

我靠。你以前是用VC的吧？在DELPHI里，你得自己管理类得生存期。就是说你要显式调用构造函数！
Stream :=tmemorystream.create;
然后才能使用它，记住在函数结束前调用
Stream.Free;释放类