помогите с прогой!

ребят, пишу прогу, но пишет ошибку. кто знает решение?

Спойлер: код

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel1: TPanel;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
k, l, m: integer;
implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
write(k);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
write(l);
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
if press button1 then write(k+l)
else
if press button2 then write(k-l)
else
if press button3 then write(k*l);
end;

end.

Спойлер: ошибка

кто поможет дам +

 

Странно ()

 

кто-нибудь, помогите!!!

 

Тут не очень много людей разбирается в этом....иди на компьютерные форумы.
А если по делу то....он не нашёл button1(кнопку1) т.к. ты её вроде не назначил

 

всмысле?
а вообще я все время до этого писал в консоле, а щас в первый раз пишу норм прогу.
а по делу: как ее назначить?