Задача про интернет трафик

[Ya_tolko_uchus]

Внимание, посмотрите где че не хватает

procedure TForm1.Button1Click(Sender: TObject);
var
norma,cena,mesyac,prevushenie,summa :integer;
norma:=(Editl.Text);
cena:=(Edit2.Text);
mesyac:=(Edit3.Text);
prevushenie:=(Edit4.Text);
summa:=(mesyac-norma)*prevushenie+cena;
Tform.CAPTION:=INTTOSTR(summa);


end;


end.

[Mad_Cat]

norma:= strtoint(Editl.Text);

и так везде
вообще много не хватает
begin-a нету первого

summa должна быть double;

 form1.CAPTION:=floatTOSTR(summa);

и формула какая-то голимая если честно!