требуется разобратся с кодом

unit vrun1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// щелчок на кнопке Вычислить
procedure TForm1.Button1Click(Sender: TObject);
var
    dist : integer; // дистанция, метров
    t:     real;    // время, как дробное число
 
    min : integer;  // время, минуты
    sek : integer;   // время, секунды
 
    v: real;        // скорость
begin
    // получить исходные данные из полей ввода
    dist := StrToInt(Edit1.Text);
    t := StrToFloat(Edit2.Text);
 
    // предварительные преобразования
    min := Trunc(t);  // кол-во минут - это целая часть числа t
    sek := Trunc(t*100) mod 100; // кол-во секунд - это дробная часть числа t
 
    // вычисление
    v := (dist/1000) / ((min*60 + sek)/3600);
 
    // вывод результата
    label4.Caption := 'Дистанция: '+ Edit1.Text + ' м' + #13 +
                      'Время: ' + IntToStr(min) + ' мин ' +
                                 IntToStr(sek) + ' сек ' + #13 +
                      'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';
 
end;
 
// щелчок на кнопке Завершить
procedure TForm1.Button2Click(Sender: TObject);
begin
        Form1.Close;
end;
 
// нажатие клавиши в поле Дистанция
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    // Key - символ, соответствующий нажатой клавише.
    // Если символ недопустимый, то процедура заменяет его
    // на символ с кодом 0. В результате этого символ в поле
    // редактирования не появляется и у пользователя создается
    // впечатление, что программа не реагирует на нажатие некоторых
    // клавиш.
    case Key of
      '0'..'9':                  ; // цифра
      #8      :                  ; // <Backspace>
      #13     : Edit2.SetFocus   ; // <Enter>
 
      // остальные символы - запрещены
      else Key :=Chr(0);  // символ не отображать
    end;
end;
 
 
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    case Key of
      '0'..'9':   ; // цифра
 
      ',','.' :
          // точка или запятая
          begin
             if Key = '.' then Key := ','; // подменим точку запятой
             // проверим, есть ли в поле Edit2 запятая
             if Pos(',',Edit2.Text) <> 0 // запятая уже есть
                 then Key:=Char(0);      // вторую запятую не отображать
          end;
 
      #8      :                  ; // <Backspace>
 
      // остальные символы - запрещены
      else Key :=Chr(0);  // символ не отображать
    end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
    dist : integer; // дистанция, метров
    t:     real;    // время, как дробное число
 
    min : integer;  // время, минуты
    sek : integer;   // время, секунды
 
    v, v2, v3, v4, v5: real;        // скорость
 
begin
    // получить исходные данные из полей ввода
    dist := StrToInt(Edit1.Text);
    t := StrToFloat(Edit2.Text);
 
    // предварительные преобразования
    min := Trunc(t);  // кол-во минут - это целая часть числа t
    sek := Trunc(t*100) mod 100; // кол-во секунд - это дробная часть числа t
 
    // вычисление
    v := (dist/1000) / ((min*60 + sek)/3600); //км в ч
    v2:= (dist/1000) / (min*60 + sek); //км в сек
    v3:= (dist) / ((min*60 + sek)/60); //м в мин
    v4:= (dist) / (min*60 + sek); //м в сек
    v5:= (dist) / ((min*60 + sek)/3600); //м в час
 
    // вывод результата
    label4.Caption := 'Дистанция: '+ Edit1.Text + ' м' + #13 +
                      'Время: ' + IntToStr(min) + ' мин ' +
                                 IntToStr(sek) + ' сек ' + #13 +
                      'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час'+ #13 +
                              FloatToStrF(v2,ffFixed,4,2) + ' км/сек'+ #13 +
                              FloatToStrF(v3,ffFixed,4,2) + ' м/мин'+ #13 +
                              FloatToStrF(v4,ffFixed,4,2) + ' м/сек'+ #13 +
                              FloatToStrF(v5,ffFixed,4,2) + ' м/час';
end;