Problem Delphi kalkulator.

Mam Problem odnośnie kalkulatora, postanowiłem zrobić kalkulator który bedzie posiadał 6 funkcji dodawanie dzielenie etc.
tylko że teraz nie mogę go skompilować . czy mógłby ktoś sprawdzić co jest nie tak ?

http://4programmers.net/Pastebin/1629

Poszukaj linijki:

procedure Edit1Change(Sender: TObject);

i usuń ją...

zmień sobie procedurę dzielenia z:

var
l1,l2 : Extended;
begin
l1 := StrToFloat(Edit1.Text);
l2 := StrToFloat(Edit2.Text);
IF l2=1 THEN
begin
writeln('Przez zero się nie dzieli!');
end;
Edit3.Text := FloatToStr(L1/L2);

na

var
l1,l2 : Extended;
begin
l1 := StrToFloat(Edit1.Text);
l2 := StrToFloat(Edit2.Text);
IF l2 = 0 THEN
  Edit3.Text = 'Przez zero się nie dzieli!'
  else
    Edit3.Text := FloatToStr(L1/L2);

i chyba będzie grać...