向各位高手请教

这不自己跟自己较劲吗？Move(A,B,Len)是从地址A处拷贝Len个字节的东西到地址B处。
你的函数应该将'5678'字符串，Copy到一个整数空间中，
procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..4] of char;
    b : Integer;
begin
     a := #0#0#0#0;
     Move(a,b,4);
     ShowMessage(IntTostr(b));
end;
将#0分别用'5','6','7','8'的Ascii码替换就明白了。