Janilabo | Stuff() [Simba]

function Stuff(str, s: string; iFrom, iCount: Integer): string;
begin
  Result := Copy(str, 1, Length(str));
  Delete(Result, iFrom, iCount);
  Insert(s, Result, iFrom);
end;

var
  str: string;

begin
  ClearDebug;
  str := 'Stuff test to see this is working..!';
  WriteLn(Stuff(str, '() WORKS', 6, 30));
end.