高手指教，为什么MOVE后没有得到想要的值？？

Question

var FileName:String[250];
  RevS:TReVBufferS;  //结构24BYTE
  PRevS:PByte;
  TempPointerS:PByte;
  PS,PD:PByte;
  FN:String[250];PROC CONNECT;
BEGIN
     PREVS:=@REVS;
     TempPointerS:=PREVS;
END
proc execute;
begin
          AThread.Connection.ReadBuffer(TempPointerS^,31);
          //前24个字节为结构，后7个为文件名
          PS:=TempPointerS;
          Inc(PS,24);
          PD:=@FileName;
          //到此运行正确
          move(PS^,PD^,RevS.Len);  //RevS.Len=7
          //MOVE后无法得到FileName？？？？？？？？
          FN:=FileName;
end;为什么文件名没有得到？？？？？？？？？请教!!!!!

Answer 1

没人跟呀，散分呀，问题解决了！！！！！