Insertar o borrar en un string de un Tstringlist

[Anel Hernandez]

Hola:

quiero insertar una cadena dentro de un string perteneciente a un Tstringlist. Lo hago asi:

Código Delphi [-]
var
 i:byte;
 milista:TStringList;
 s1,s2:string;
begin
...
 s1:=milista.Strings[i];
 insert(s2,s1,21);
...

asi funciona perfectamente. pero quisiera hacerlo en una sola linea usando funciones/procedimientos predefinidos de Delphi. Si sustituyo en la funcion insert el valor asignado a s1 da el error:
"Constant object cannot be passed as var parameter"

De modo analogo ocurre con el procedimiento delete.

como pudiera hacerlo?

gracias