Код Delphi

[=Карина=]

Нужно написать комментарии к каждой строке. Препод сказал, если я не секу в этом деле, то надо мне написать коммент к каждой строке...
Помогите , plz

unit Unit1;               //объявление модуля 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;          //модули Delphi

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;                      // Объявление классов и интерфейсов

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  s: string;

procedure Code(var text: string; password: string;
  decode: boolean);
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := length(password);
  if PasswordLength = 0 then Exit;
  if decode
    then sign := -1
    else sign := 1;
  for i := 1 to Length(text) do
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
s := Memo1.Text;
  code(s, Edit1.Text, false);
  Memo1.Text := s;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
  code(s, Edit1.Text, true);
  Memo1.Text := s;

end;

end.

прога вроде шифрует текста...

[=Карина=]

вот написала что смогла... помогите с остальным....

unit Unit1;               //объявление модуля 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;          //модули Delphi

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;                   //Объявление классов и интерфейсов

var                      //Объявляем переменные
  Form1: TForm1;        //Переменная форма

Implementation        //Блок описания процедур

{$R *.dfm}             //Подключение файла описания формы

Var                     //Объявляем переменные
  s: string;           //Строковая переменная

procedure Code(var text: string; password: string;
  decode: boolean);
var                      //Объявляем переменные
  i, PasswordLength: integer;
  sign: shortint;
begin                  //Начали
  PasswordLength := length(password);
  if PasswordLength = 0 then Exit;
  if decode
    then sign := -1
    else sign := 1;
  for i := 1 to Length(text) do
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));
end;                    //конец


procedure TForm1.Button1Click(Sender: TObject);  //По клику на кнопку 1
begin                   //Начали
s := Memo1.Text;
  code(s, Edit1.Text, false);
  Memo1.Text := s;
end;                    //конец



procedure TForm1.Button2Click(Sender: TObject); //По клику на кнопку 1
begin                  //Начали
  code(s, Edit1.Text, true);
  Memo1.Text := s;

end;                    //конец

end.                    //конец

[Ghost of Night]

unit Unit1;               //объявление модуля 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;          //модули Delphi

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;                   //Объявление классов и интерфейсов

var                      //Объявляем переменные
  Form1: TForm1;        //Переменная форма

Implementation        //Блок описания процедур

{$R *.dfm}             //Подключение файла описания формы

Var                     //Объявляем переменные
  s: string;           //Строковая переменная

procedure Code(var text: string; password: string;
  decode: boolean);
var                      //Объявляем переменные
  i, PasswordLength: integer;
  sign: shortint;
begin                  //Начали
  PasswordLength := length(password); //получаем длину  password
  if PasswordLength = 0 then Exit; //если длина пароля = 0 то выходим
  if decode          //если верно делаем
    then sign := -1  //присваиваем  sign := -1
    else sign := 1;  //если не верно, присваиваем   sign := 1.
  for i := 1 to Length(text) do   //от 1 до числа равного длине text
    //i-ный символ TEXT равен получить код символа text[i], прибавить к нему  
    // sign, умножить на код символа password[i mod PasswordLength + 1], и
    //полученный результат(число) перевести в символ.
    text[i] := chr(ord(text[i]) + sign *  
      ord(password[i mod PasswordLength + 1]));  
end;                    //конец


procedure TForm1.Button1Click(Sender: TObject);  //По клику на кнопку 1
begin                   //Начали
  s := Memo1.Text;    //присвоить s значение  Memo1.Text
  code(s, Edit1.Text, false);  //выполнить процедуру  code для переменной s
  Memo1.Text := s;   //присвоить  Memo1.Text значение переменной s
end;                    //конец



procedure TForm1.Button2Click(Sender: TObject); //По клику на кнопку 2
begin                  //Начали
  code(s, Edit1.Text, true);  //вызвали процедуру  code для переменной s
  Memo1.Text := s;    //присвоить  Memo1.Text значение переменной s

end;                    //конец

end.                    //конец

Пользуйся...