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

[Kara1989]

Привет, всем знатокам программирования!

Хочу задать простой вопрос. Напишите пожалуйста комментарий каждой строчке, которые выделены жирными, чтобы было понятно, выкладываю весь листинг программы. И еще когда компилирую с помощью дельфи 2010 программа работает не корректно, а если с дельфи 7 все замечательно. От чего это?
p.s.: я еще начинающий, надо защитить преподу, а некоторые объяснения к кодам к сожалению не знаю.

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);
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]);
----if OpenDialog1.Execute=true then 
------begin
------SaveDialog1.DefaultExt:=copy(ExtractFileExt(OpenDialog1.FileName),2,length(OpenDialog1.FileName));
------SaveDialog1.FileName:='1 '+ExtractFileName(OpenDialog1.FileName);
------if SaveDialog1.Execute=true then 
--------begin
--------FileSetAttr(OpenDialog1.FileName,0);
--------AssignFile(F, OpenDialog1.FileName);
--------AssignFile(F3, SaveDialog1.FileName);
--------Reset(F,1);
--------Rewrite(F3,1);
--------X:=0;
--------X1:=0;
--------repeat
--------Form1.Update;
--------BlockRead(F, Buf, SizeOf(Buf), NumRead);
--------X1:=X1+2048;
--------ProgressBar1.Max:=FileSize(f);
--------ProgressBar1.Position:=x1;
--------for i:=0 to NumRead do 
----------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;
--------BlockWrite(F3, Buf3, NumRead, NumWritten);
--------until (NumRead = 0) or (NumWritten <> NumRead);
--------ProgressBar1.Position:=0;
--------CloseFile(F);
--------CloseFile(F3);
--------OpenDialog1.FileName:='';
--------end;
------end;
----Form1.Edit2.Visible:=false;
----Form1.Edit1.Clear;
--end;
end;

From Stilet: Код попрошу оформлять по правилам.

[Пепел Феникса]

потому что в Делфи 2010 юникод, и итого sizeof(Сhar)=2
используйте AnsiChar

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

Для начала, оформите код правильно.