Speicher dir doch vor dem Berechnen die Werte aus den Edits in einem
rechenbaren Format zwischen. Dann wird das ganze um einiges übersichtlicher.
Delphi-Quellcode:
var
wert : Extended;
wiederstand : Extended;
tolerance: Extended;
prozent: extended;
sTolMin, sTolMax: string;
...
prozent:=1;
widerstand := wert*10000;
tolerance := widerstand/100*prozent;
sTolMin := FloatToStr((widerstand-tolerance)/1)+' Ohm');
sTolMax:= FloatToStr((widerstand-tolerance)/1)+' Ohm');
Und Widerstand schreibt man trotzdem ohne ie.