Напишите комментарий к кодам

var//Объявляем переменные
Form1: TForm1;//переменная форма
F,F2, F3: File;//файловые переменные
F1: TextFile;//переменная текстового файла
Buf, Buf1, Buf3: array[1..2048] of Char;//символьные переменные
NumRead, NumRead2,NumWritten,i, k1, k2, X, X1,m: Integer;//целочисленные переменные
s: string;//строковая переменная
implementation//блок описания процедур
 
{$R *.dfm}//подключение файла описания формы
 
procedure TForm1.Button1Click(Sender: TObject);//По клику на кнопку 1
begin//начало
if (Form1.CheckBox1.Checked = true) and (Form1.Edit1.Text = '') then //если отмечен чекбокс и поле ввода пустое, то
--begin//начали
--Form1.Edit1.Text;//строка содержит ошибку. Здесь мне непонятно, что вы имели в виду, поэтому не могу исправить
--Application.MessageBox('Введите пароль!', 'Шифратор', mb_ok + mb_iconwarning);//Вывод сообщения
--Exit;//выход из процедуры, на мой взгляд эта строка здесь лишняя
--end//закончили если
--else//иначе
----begin//начали
----For m:=1 to Length(Form1.Edit1.Text) do Buf1[m]:=char(Form1.Edit1.Text[m]);//переносим содержимое эдита в переменную buf1
----if OpenDialog1.Execute=true then//если открыт диалог, то
------begin// начали
------SaveDialog1.DefaultExt:=copy(ExtractFileExt(OpenDialog1.FileName),2,length(OpenD ialog1.FileName));//в диалог сохранения записываем расширение по умолчанию из диалога открытия
------SaveDialog1.FileName:='1 '+ExtractFileName(OpenDialog1.FileName);Устанавливаем имя файла для диалога сохранения
------if SaveDialog1.Execute=true then//если диалог сохранения открыт, то
--------begin//начали
--------FileSetAttr(OpenDialog1.FileName,0);Устанавливаем атрибуты
--------AssignFile(F, OpenDialog1.FileName);//устанавливаем f на файл, который нужно открыть
--------AssignFile(F3, SaveDialog1.FileName);//устанавливаем f3 на файл, который нужно сохранить
--------Reset(F,1);//Открыть файл f  для чтения
--------Rewrite(F3,1);// Открыть фай f3 для записи
--------X:=0;//эти две переменные похожи на позицию, устанавливаем 0
--------X1:=0;
--------repeat//повторять
--------Form1.Update;//обновление формы
--------BlockRead(F, Buf, SizeOf(Buf), NumRead);//начинаем читать файл f, первый блок записывам в переменную buf, NumRead  - текущий считанный номер
--------X1:=X1+2048;//увеличиваем переменную
--------ProgressBar1.Max:=FileSize(f);//устанавливаем максимальное значение прогрессбара как размер файла f
--------ProgressBar1.Position:=x1;//Устанавливаем позицию прогрессбара
--------for i:=0 to NumRead do//цикл от 0 до считанного номера
----------begin
----------k1:=Ord(Buf[i]);
----------k2:=Ord(Buf1[x]);
----------if X = Length(Form1.Edit1.Text) then x:=0;
----------Buf3[i]:= Chr(k1 xor k2);
----------X:= X + 1;
----------end;//в этом цикле формируется значение переменной buf3 с использованием шифрования по xor
--------BlockWrite(F3, Buf3, NumRead, NumWritten);//Записываем полученное значение в файл f3
--------until (NumRead = 0) or (NumWritten <> NumRead);//вся процедура заканчивается, если исходный файл пуст или дошли до конца
--------ProgressBar1.Position:=0;//сброс прогруссбара
--------CloseFile(F);//закрываем файл
--------CloseFile(F3);//закрываем файл
--------OpenDialog1.FileName:='';//сброс имени файла в диалеге
--------end;//конец
------end;//конец
----Form1.Edit2.Visible:=false;//прячем эдит2
----Form1.Edit1.Clear;//очищаем эдит1
--end;
end;