郁闷得要死~关于剪贴板问题~昨天还好好的，今天就出错了~

Question

这段代码我记得昨天还好好的运行的~今天就出错了~为什么？？
这个代码你们完全可以试一试看看~请问这是怎么错的了啊~procedure TForm1.Button1(Sender: TObject);
var
   handle:THandle;
   phandle:pointer;
   Mystream:Tstream;
   size:integer;
begin
  if not clipboard.HasFormat(CF_TEXT) THEN exit;
      clipboard.open;
      handle:=clipboard.getashandle(CF_TEXT);
      if handle<>0 then begin
         phandle:=globallock(handle);
        size:=globalsize(handle);
       Mystream:=Tstream.Create;
       showmessage(''+inttostr(size)+'');
       Mystream.WriteBuffer(phandle^,size);//今天这儿错误‘abstract error’
        mystream.Position:=0;
        Memo1.Clear;
        memo1.Lines.LoadFromStream(mystream);
      end;
      clipboard.Clear;
      clipboard.close;
      Memo1.SetFocus;end;

Answer 1

不能直接使用Tstream类，要用其子类。如TMemoryStream,TFileStream等。
你用TMemoryStream看看。