这个 MyStream 是 TMemoryStream

为避免反复Create/Free 这个MyStream浪费CPU，这个对象我是事先Create好的。


然后就执行下面这行代码：
procedure TForm1.GetScreenToStream;
begin
FStream.Clear;
CapScreen_2.SaveToStream(FStream);
Label1.Caption:=IntToStr(FStream.Size);
end;

如果我把上面的代码放到一个Timer里去，Timer 300MS 一次，就把CPU跑到100了。只要把 CapScreen_2.SaveToStream(FStream); 这句屏蔽掉，CPU立即停下来。