kalorienrechner

[xilos]

hallo wir sollen von der schule aus einen kalorienrechner entwickeln
ich habe jetzt aber ein problem...
...und zwar hab ich schon vieles einfach ausprobiert und komme aber bei den radiobuttons nicht weiter -.-

könnt ihr mir da vielleicht helfen??

im anhang das vorgegebene design vond em rechner

also und zwar soll er den grundumsatz an kalorien ausrechnern und dann noch die körperlichen anstrengungen (radiobutons) mit einbeziehen... bei leichter arbeit +1/3 des grunumsatzes bei mittlerere +2/3 usw..

hier ist schon mal das was ich geschafft habe x)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1 : integer;
var bonus : integer;
begin
zahl1 := StrToint (edit1.text);

edit2.text := intToStr (zahl1*24);


  if RadioGroup1.ItemIndex = 0 then
    bonus := StrToInt(Edit1.Text) * 24 div 3;

  if RadioGroup1.ItemIndex = 1 then
    bonus := StrToInt(Edit1.Text) * 24 div 3 * 2;

  if RadioGroup1.ItemIndex = 2 then
    bonus := StrToInt(Edit1.Text) * 24;

edit3.text := inttostr(bonus +(strtoint(Edit3.text)*24));

end;

end.

ichw eiß es ist noch nicht viel aber immer wenn ich einen radiobutton anklicke und dann den "berechnen" button klicke kommt eine fehlermeldung in einem extra fenster und ich muss das programm debuggen!!!