[Страдалецъ]

Я вот только не понял, а на кой в этом коде LogFile?
Ну а если хочется изменять данные имеющегося файла, то можно так сделать:

Код:

Var
  CharFile: File of Char;
  Ch: Char;
  i: Integer;
begin
 AssignFile(CharFile, 'wea_wea.txt');
 Reset(CharFile);
 for i := 0 to FileSize(CharFile) - 1
 do begin
    Seek(CharFile, i);
    Ch := Chr(126 + Random(126));
    Write(CharFile, Ch);
    end;
 CloseFile(CharFile);
end;