вставить знак перед строкой

[Человек_Борща]

Всем доброго времени суток!

Есть файл и в нем строки.

Как не перезаписывая весь файл, открыть его и перед какой-то строкой вставить знак ?

var
  ts: TstringList;
  i: integer;
  TempS: string;
begin
  ts := TstringList.create;
  try
    Ts.loadFromFile('bla.txt');
    for i := 0 to Ts.count - 1 do
    begin
      TempS := Ts.Strings[i]; //наша какая-то строчка в файле
    end;
  finally
    ts.free;
  end;
end;

Допустим в этом [i] номере строки есть строка "строка1".
Как подвинуть строку и вставить перед ней знак >
чтобы получить:
">строка1"


Добавлено

ПРОБЛЕМА РЕШЕНА! >> http://www.delphibasics.ru/Insert.php

[Tronix]

var
  ts: TstringList;
  i: integer;
  TempS: string;
begin
  ts := TstringList.create;
  try
    Ts.loadFromFile('bla.txt');
    for i := 0 to Ts.count - 1 do
    begin
      TempS := '>'+Ts.Strings[i]; //наша какая-то строчка в файле
    end;
  finally
    ts.free;
  end;
end;