Курсовая работа: Текстовый редактор "Блокнот" с функцией шифрования - дешифрования классическими криптографическими методами

Form4: TForm4;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm4. Button1Click (Sender: TObject);

begin

if radiogroup1. ItemIndex=-1 then

MessageDlg ('Выберите метод щифрования! ', mtConfirmation, [mbOk], 0)

else

begin

form1. Show;

if radiogroup1. ItemIndex=3 then

begin

FORM1. M2. Clear; form1. M3. Clear;

form1. edit2. Visible: =true;

form1. label2. Visible: =true;

end

else

begin

form1. edit2. Visible: =false;

form1. label2. Visible: =false;

end;

if radiogroup1. ItemIndex=0 then

begin

form1. M2. Clear; form1. M3. Clear; end;

if radiogroup1. ItemIndex=1 then

begin

form1. M2. Clear; form1. M3. Clear; end;

if radiogroup1. ItemIndex=2 then