Жду ваших комментов

[GraNNiK]

Преподаватель прости подробной комментировки к этому исходному коду.
Пожалуйста люди кто разбирается в Delphi Расскомментируйте этот код.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, Menus;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Exit1: TMenuItem;
    About1: TMenuItem;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure testd();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:textfile;
  i,n,p,nq:byte;
  tof:array[1..4] of byte;
  a:array [1..6] of string;
implementation

{$R *.dfm}
procedure TForm1.testd;
begin
  Readln(f,a[6]);
  Memo1.Lines.Add(a[6]);
  Readln(f,a[5]);
  if a[5]<>'.'then
  begin
    Panel1.Visible:=True;
    Image1.Visible:=True;
    Form1.Width:=764;
    Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + a[5]);
  end
  else
  begin
    Panel1.Visible:=False;
    Form1.Width:=457;
  end;
  for i:=1 to 4 do
  begin
    Readln(f,tof[i]);
    Readln(f,a[i]);
    RadioGroup1.Items.Add(a[i]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  f_test:string;
begin
  Button1.Enabled:=False;
  OpenDialog1.Execute;
  Memo1.Clear;
  f_test:=OpenDialog1.FileName;
  p:=0; //True answers in the beginning
  Assignfile(f,f_test);
  Reset(f);
  Readln(f,n);   //Количество вопросов
  nq:=n;
  testd;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=0 to 3 do
  begin
    if tof[i+1]=1 then
    begin
      RadioGroup1.Enabled:=False;
      Image2.Visible:=True;
      Image2.Top:=Image2.Top+(i+1)*42;
      if RadioGroup1.Buttons[i].Checked then
        p:=p+1;
    end;
  end;
  nq:=nq-1;
  If nq=0 then
  begin
    ShowMessage('Your result: '+IntToStr(p)+' correct answers out of '+IntToStr(n));
    Button1.Enabled:=False;
  end
  else
    Button1.Enabled:=True;
  Button2.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RadioGroup1.Items.Clear;
  Image1.Visible:=False;
  Image2.Visible:=False;
  Image2.Top:=73;
  RadioGroup1.Enabled:=True;
  Memo1.Clear;
  testd;
  Button1.Enabled:=False;
  Button2.Enabled:=True;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage('Laiz Test 0.2.0 Final (c) 2009 Minh [Ignotus] Ngo');
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Form1.Close;
end;

end.

Комменты пишите так //Возле надписи.

[GraNNiK]

С виду кажется громоздким, но это не так , просто я сам не разбираюсь в дельфи, прокомментируйте, даже если я покопаюсь в словаре это мне ничего не даст =(((

[Alar]

пищите в раздел форума фриланс. вам за деньги помогут.