[YVitaliy]

Поменяй просто в своей версии

Код:

insert ('...',s1,i);

на

Код:

Result := Result + '...' Else Result := Result + AStr[i];

Код:

s2:= s2 + '...' Else s2 := s2 + s1[i];