[Kristofer]

предисловие

var
Fl:TFileStream;
F:TStrings;
I:integer;
begin
Fl:=TFileStream.Create('log.log', fmCreate); //создаем
Fl.Free; //уничтожаем
F:=TStringList.Create(); //открываем
F.LoadFromFile('log.log'); //файл...
F.Add('строка'); //добавляем строки

вопрос:
как удалить последний символ в открытом мною файле
номер которого (символа) неизвестен, но он стоит слева от курсора
и продолжить добавление строк дальше