移動內存塊move

var
  Source,Dest: string;
begin
  Source := '123456789';
  Dest   := '---------'; Move(Source[5], Dest[3], 4);

  ShowMessage(Dest); {--5678---}
end;