TstringList-смещение на 5 символов

[kokj007]

Текстовый файл грузится в stringList. В загруженном тексте есть где-то символы $40, нужно найти эти символы, а затем сдвинуться влево на 5 символов от найденных $40 и переписать сверху старые символы на новые два (на число 15)
Например:аааааааааа$40аааааааа, результат: ааааа15ааа$40аааааааа.

Спасибо большое за работающие ответы!!!

[asmodey1]

Смотрим в хэлпе работу с функциями POS, POSEX...

[kangreon]

var
  sl: TStringList;
  i: integer;
  s: string;
begin
  s := sl.Text;
  i := Pos('$40',s);
  i := i -5;
  s[i] := '1';
  s[i+1] := '5';
  sl.Text := s;
end;