delphi中怎样实现内存拷贝

Question

可以用MOVE，调用如下：
procedure Move(const Source; var Dest; Count: Integer);
以下是一个例子：procedure TForm1.Button1Click(Sender: TObject);
var
  Size: Integer;
  Buffer1,Buffer2: PChar;
  S : String ;
begin
    S := '123456789'  ;
    Size := sizeof(PChar(S)) ;
    GetMem(Buffer1, Size);
    GetMem(Buffer2, Size);
    Buffer1 := PChar(S) ;
    Move(Buffer1,Buffer2,sizeof(Buffer1)) ;
    try
    finally
      FreeMem(Buffer1);
      FreeMem(Buffer2);
    end;
end;随便给分！