Как переделать программу?

[вася радугов]

Вот мое задание:Программа хранения данных работников какой - нибудь фирмы. Пользователь, работая с этой программой, должен вводить данные о работнике (ФИО, Дата рождения, Место рождение и т.п.), при нажатии на кнопку "сохранить" эти занные записываются в файл.
Надо сделать две кнопки: кнопка сохранить-пользователь нажимает на нее, данные должны записываться в текстовый файл и шифроваться заменой.
Вторая кнопка-кнопка открыть:просмотр файла, при просмотре все данные должны декодироваться.
У меня получилось написать программу, но у меня четыре кнопки: сохранить, закодировать, раскодировать, открыть.
Как переделать программу?
Вот так я сохраняю данные в файл, данные вводятся в эдиты:

procedure TForm1.Button1Click(Sender: TObject);
begin
   str:= Edit1.Text;
 str2:=edit2.Text ;
 str3:=edit3.Text ;
 str4:=edit4.Text ;
 str5:=edit5.Text ;
 str6:=edit6.Text ;
 str7:=edit7.Text ;

assignfile(F,'1.txt');
Append(F);
writeln(F, str);
writeln(F, str2);
writeln(F, str3);
writeln(F, str4);
writeln(F, str5);
writeln(F, str6);
writeln(F, str7);
Closefile(F);

end;

[вася радугов]

вот код шифрования:

procedure TForm1.Button4Click(Sender: TObject);
var F: file of Byte;
    B: Byte;
begin
   AssignFile (F, '1.txt');
  Reset (F);
  while not EOF (F) do
  begin
    Read (F, B);
    Seek (F, FilePos (F) - 1);
    Inc (B);
    Write (F, B);
  end; 
  CloseFile (F);
end;

Код кнопки раскодировать:

procedure TForm1.Button2Click(Sender: TObject);
var F: file of Byte;
    B: Byte;
begin
 AssignFile (F, '1.txt');
  Reset (F);
  while not EOF (F) do
  begin
    Read (F, B);
    Seek (F, FilePos (F) - 1);
    Dec (B);
    Write (F, B);
  end;
  CloseFile (F);
 
end;