[poli-smen]

Сообщение от JeReK5542

выскакивают разные ошибки(
напишите пожалуйста рабочий пример

Какие ошибки?

Простой пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  InFS, OutFS: TFileStream;
  C: Byte;
begin
  InFS := TFileStream.Create('Имя исходного файла', fmOpenRead);
  try
    OutFS := TFileStream.Create('Имя выходного файла', fmCreate);
    try
      while InFS.Read(C, 1) > 0 do
      begin
        C := C xor $AA;
        OutFS.WriteBuffer(C, 1);
      end;
    finally
      OutFS.Free;
    end;
  finally
    InFS.Free;
  end;
end;