в чём ошибка здесь? не пойму (((

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Lebel4: TLabel;
    Lebel2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(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);
 
// вывод результата
 
lebel4.Caption := 'Дистанция:'+ Edit1.Text+
 
' м' + #13 + 'Время' + IntToStr(min)+
 
' мин ' + IntToStr(sek) + ' сек ' + #13 +
 
'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час'
 
 // нажатие кнопки Завершить
 
procedure  TForm1.Button2Click(Sender: TObject);
 
begin
 
Form1.Close; // закрыть главное окно программы
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 
 begin
 
// Key — символ, соответствующий нажатой клавише.
 
// Если символ недопустимый, то процедура заменяет его
 
// на символ с кодом 0. В результате этого символ в поле
 
// редактирования не появляется, и у пользователя создается
 
// впечатление, что программа не реагирует на нажатие некоторых
 
// клавиш.
 
case Key of
 
'0'..'9': ; // цифра
 
#8 : ; // клавиша <Back Space>
 
#13 : Edit2.SetFocus ; // клавиша <Enter>
 
// остальные символы — запрещены
 
else Key :=Chr(0); // символ не отображать
 
end;
 
end;
 
end.

sek := Trunc(t*100) mod 100;

sek := Round(Trunc(t*100)) mod 100;

procedure TForm1.Button1Click(Sender: TObject);
var t:real;
    sec:integer;
begin
 t:=12345.456;
 sec:=trunc(t*100) mod 100;
 Edit1.Text:=inttostr(sec);
end;