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

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

if radiogroup1. ItemIndex=4 then

begin

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

form4. Close;

end;

end;

procedure TForm4. FormActivate (Sender: TObject);

begin

Radiogroup1. ItemIndex: =-1;

end;

end.