Помогите, где здесь ошибка?

Question

Unit Unit1; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs; 
 
type 
 TForm1 = class(TForm) 
 Edit1: TEdit; // Длительность (мин) 
 Edit2: TEdit; // День недели 
 Label1: TLabel; 
 Label2: TLabel; 
 Label3: TLabel; //Вывод 
 Button1: TButton; // Кнопка!! ! 
 
procedure Button1.click(Sender: TObject); 
 
 private 
 { Private declarations } 
 public 
 { Public declarations } 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.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*DISCOUNT; 
 if (Day=6) or (day=7) 
 then Surama := Summa*(1-DISCOUNT); 
 Label3.caption:='к оплате'+ FloatToStr(Summa) + 'руб. '; 
end.

Николай Николаевич · Accepted Answer

У тебя есть компилятор. Вопрос "где здесь ошибка" - к нему и только к нему. 
Вот если ты не понимаешь, почему конкретно этот код вызывает конкретную ошибку в компиляторе - то так и спрашивай.

Андрей · Answer

Мой телепатический дар шепчет: 
procedure Button1.click(Sender: TObject); - вот это что за хрень внутри обьявления формы.

Катя · Answer

Мне кажется писал на паскале вот здесь {$R *.dfm}