[GrabbeR]

Нашел ошибку, спасибо!

Код:

var
  f: TextFile;
  i: Integer;
begin
  AssignFile(f, 'Log.txt');
  if FileExists('Log.txt') then
    Append(f)
  else
    Rewrite(f);
  try
    for i := 0 to RichEdit1.Lines.Count - 1 do
      Writeln(f, RichEdit1.Lines[i]);
  finally
    CloseFile(f);
  end;
end;