Wie kann ich das rechnen

[fwsp]

ich würde dir als erstes emphelen dir mal den styleguide auf dsdt.info anzugucken. desweiteren solltest du zur besseren übersicht einmal die variable aus der combo ziehen und dann mit case weiterarbeiten.

Delphi-Quellcode:

var
  x: extended;
begin
  if rb_4rings.Checked then
  begin
    x := cb_ring4.ItemIndex
    case x of
      0: pnl_Tolerance.Caption:= '10%';   // und hier  sind die toleranzen
      1: pnl_Tolerance.Caption:= '5%' ;
      2: pnl_Tolerance.Caption:= '1%' ;
      3: pnl_Tolerance.Caption:= '2%' ;
      4: pnl_Tolerance.Caption:= '0,5%';
      5: pnl_Tolerance.Caption:= '0,25%';
      6: pnl_Tolerance.Caption:= '0,1%'  ;
    end;
  end;
end;

sieht doch schon mal besser aus, oder?