procedure Insert(Source: AnyString; var Dest: AnyString; Index: Integer);
Merges Source into Dest at the position Dest[Index].If Index is larger than the length of Dest, Insert appends Source to Dest.