Не выводится ответ onclick

[grandmasterus]

Доброго времени суток, форум.
Учусь Delphi, в книге была программа пример. Скопировал полностью - не работает, забил заново вручную и кое что исправил - стала запускаться. Но при нажатии на кнопку - ничего. В чем дело? Заранее спасибо.

Я так понял что событие проходит и вычисление ведется, но почему-то прога категорически не хочет выводить ответ.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;

  private
    { Private declarations }
  public
    { Public declarations }
               end;
var
  Form1: TForm1;
  Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;

implementation

{$R *.dfm}
    procedure Button1Click(Sender: TObject);
const

PAY =0.15; // цена одной минуты разговора 0.15 рубля

DISCOUNT = 0.2; // скидка 20 процентов

var
Time:Real; // длительность разговора

Day:integer; // день недели

Summa:real; // стоимость разговора

begin

// получить исходные данные

Time:=StrToFloat(Edit1.Text);

Day:=StrToInt(Edit2.Text);

// Вычислить стоимость разговора

Summa:= PAY*Time;

// Если день суббота или воскресенье, то уменьшить

// стоимость на величину скидки

if (Day = 6) OR (Day = 7)

then Summa:=Summa*(1 - DISCOUNT);

// вывод результата вычисления

label3.Caption:='K оплате '

+ FloatToStr(Summa) + 'руб.';

end;
end.

Сломал мозг, как на пары теперь пойду...

[Zer0]

потому что это просто процедура, а не обработчик
Обработчик для кнопки создать легко - просто дважды кликнуть в дизайнере формы по ней, это автоматом создаст процедуру-обработчик нажатия на кнопку