Шифры простой замены

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(catbash(memo1.Lines[i]));

end; 

procedure TForm1.ECezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cEcezar(memo1.Lines[i],key)); 

end; 

procedure TForm1.DCezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cDcezar(memo1.Lines[i],key));

end; 

procedure TForm1.clearExecute(Sender: TObject);

begin

memo2.Clear;

end; 

procedure TForm1.changeExecute(Sender: TObject);

begin

memo1.Lines:=memo2.Lines;

memo2.Clear;

end;

9. Опишите подпрограммы для каждой из кнопок BitBtn:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if clr.Checked then memo2.clear;

if combobox1.ItemIndex=0 then atbash.Execute

else if action.ItemIndex=0 then ECezar.Execute

else DCezar.Execute;

end; 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

memo1.Clear;

end; 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

memo2.Clear;

end; 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

change.Execute;

end; 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

if Opendialog1.Execute then

memo1.Lines.LoadFromFile(opendialog1.FileName);

end; 

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if Savedialog1.Execute then

memo2.Lines.SaveToFile(savedialog1.FileName);

end;

10. Запустите проект.