[WingStar]

Цитата: Сообщение от hack Прошу совета - либо кусок кода, либо ссылку на ПРОВЕРЕННЫЙ компонент. Заранее спасибо.

Var
  S: TStringList;
  F: TStream;
begin
  S := TStringList.Create; // это надо при старте ПО сделать
// а S: TStringList глобальнно объявить или делать loadfromfile
  S.Add('Строка лога');
  while S.Count > 1500 do S.Delete(0);
  // может так сработает;
  while Length(S.Text) > 1500 do S.Delete(0); // тут вмксто Length может надо StrLen но это сам проверь
  // если нет то
  F := TStream.Create;
  S.SaveToStream(F);
  while F.Size > 1500 do begin
    S.Delete(0);
    S.SaveToStream(F);
  end;
  S.SaveToFile('название файла');

Попробуй может поможет.
Тут я подумал лучше эту часть которая контролирует зазмер кинуть в отдельный TThread
и пусть себе конролирует размер или на таймер повесить, но лучне TThread.