case Wertausgabe Endbetrag

[Muddy]

Jetzt zeigt er mir aber ein Fehler an.

Code:

procedure TForm2.RadioGroup1Click(Sender: TObject);
var
  bruttowert, nettowert, p: double;
  begin
    p := strtofloat (edit1.Text);
    nettowert := strtofloat (edit2.text);
    case RadioGroup1.ItemIndex of
      0: bruttowert := nettowert;
      1: bruttowert := nettowert * (7 div 100) + nettowert ;
      2: bruttowert := nettowert + (19 div 100) + nettowert ;
    3: bruttowert := nettowert * (p div 100) + nettowert ; // hier zeigt er einen Fehler an
    end;
  panel1.caption := floattostr (bruttowert);
  end;
end.