delphi – 什么可能导致System.Move偶尔给出错误的结果？

调试后我发现在其中一个数据库组件过程中调用System.Move偶尔会给出错误的结果！

请从数据库组件中查看以下代码并阅读我的评论.这种不一致的行为怎么会发生？
谁能让我知道如何找到这种不一致行为的原因？
NB！我不认为这个代码有什么问题,它只能解释问题“症状”.
我的猜测是,由于我们的代码或更新的gui-component代码导致存在某种内存损坏或其他问题.

编辑：看看下面链接的博客帖子.它似乎与我的问题有关.至少当我读到它时,它确认System.Move会给出错误的结果：
http://blog.excastle.com/2007/08/28/delphi-bug-of-the-day-fpu-stack-leak/

编辑：
很抱歉没有尽早发布我的“解决方案”,但它来了：
使用Delphi 2007时,我的问题通过使用FastMove来解决,它取代了System.Move.
升级到Delphi 2010之后,我还没有遇到问题,我们不再使用FastMove了.

Procedure InternalDescribe;
var 
  cbufl: sb4; //sb4=LongInt
  cbuf: array[0..30] of char;
  cbufp: PChar;
  //....
begin
  //..Some code
  repeat
    //...Some code to initialize cbufp and cbufl

    //On the 15. iteration the values immediately Before Move are always these:
    //cbufp = 'STDPRODUCTSTOREDELEMENTSCOUNT'
    //cbuf = ('S','T','A','U','S',#0,'E','V','R','C','I','D',#0)
    //cbufl = 29

    Move(cbufp^,cbuf,cbufl);

    //Values immediately After Move should then be:
    //cbuf = ('S','P','O','L','M','N',#0)

    //But sometimes this Move results in this value( 1 in 5..15 times):
    //cbuf = ('S',#0) }

  until SomeCondition; 
  //...Some more code
end;