procedure Insert(Source: AnyString; var Dest: AnyString; Index: Integer);
Merges Source into Dest at the position Dest[Index].