Удалить фрагмент из кода

[DeadWarlock]

PHP код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, StdCtrls, Buttons, ExtCtrls, StdActns;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    BitBtn1: TBitBtn;
    crypto: TActionList;
    Atbash: TAction;
    ECezar: TAction;
    DCezar: TAction;
    action: TRadioGroup;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    clear: TAction;
    clr: TCheckBox;
    change: TAction;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure AtbashExecute(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure clearExecute(Sender: TObject);
    procedure changeExecute(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ECezarExecute(Sender: TObject);
    procedure DCezarExecute(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.dfm}
 
function catbash(s:string):string;
var i:integer; c,d:char;rez:string;
begin
rez:='';
for i:=1 to length(s) do
begin
c:=s[i];
d:=chr(255-ord(c));
rez:=rez+d;
end;
catbash:=rez;
end;
function cEcezar(s:string;key:byte):string;
var i:integer; c,d:char;rez:string;
begin
rez:='';
for i:=1 to length(s) do
begin
c:=s[i];
d:=chr((ord(c)+ key)mod 255);
rez:=rez+d;
end;
cEcezar:=rez;
end;
function cDcezar(s:string;key:byte):string;
var i:integer; c,d:char;rez:string;
begin
rez:='';
for i:=1 to length(s) do
begin
c:=s[i];
d:=chr((ord(c)- key)mod 255);
rez:=rez+d;
end;
cDcezar:=rez;
end;
 
procedure TForm1.AtbashExecute(Sender: TObject);
var i:integer;
begin
for i:=0 to memo1.Lines.Count do
memo2.Lines.Add(catbash(memo1.Lines[i]));
end;
 
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.clearExecute(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
end;
 
procedure TForm1.changeExecute(Sender: TObject);
begin
memo1.Lines:=memo2.Lines;
memo2.Clear;
end;
 
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
change.Execute;
end;
 
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
close;
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.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;
 
end. 


Помогите убрать из него шифр Атбаша. И если можно выложить готовый код. Я вообще в этом не бумбум.

[Человек_Борща]

Form1.Font свойство.

[Larboss]

Это убрать:

function catbash(s:string):string; 
var i:integer; c,d:char;rez:string; 
begin 
rez:=''; 
for i:=1 to length(s) do 
begin 
c:=s[i]; 
d:=chr(255-ord(c)); 
rez:=rez+d; 
end; 
catbash:=rez; 
end;

И это:

procedure TForm1.AtbashExecute(Sender: TObject); 
var i:integer; 
begin 
for i:=0 to memo1.Lines.Count do 
memo2.Lines.Add(catbash(memo1.Lines[i])); 
end;