case Wertausgabe Endbetrag

[Muddy]

Ich habe ein Problem in meiner Programmierung. UNd zwar weiß ich nicht wie ich jetzt den bruttowert ausgeben soll!
Am besten ebe ich euch den Quellcode.

Delphi-Quellcode:

procedure TForm2.RadioGroup1Click(Sender: TObject);
var bruttowert, nettowert, p: integer;
begin
 nettowert := strtoint (edit2.text);
  case RadioGroup1.ItemIndex of
    0: bruttowert := nettowert * 1;
    1: bruttowert := nettowert * (7/100) + nettowert ;
    2: bruttowert := nettowert + (19/100) + nettowert ;
  else
    p := strtoint (edit1.Text);
    3: bruttowert := nettowert * (p/100) + nettowert ;
  end;
  panel1.Text := inttostr (bruttowert

  end;
end;

So!! Wo steckt der fehler?

[edit=Matze][delphi]-Tags gesetzt. MfG, Matze[/edit]