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