Problem mit Größer als und Kleiner als

[Gehstock]

Delphi-Quellcode:

procedure TForm2.btn_execute_preresistClick(Sender: TObject);
var
Resistor : string;
begin
Resistor := floattostr(((strtofloat(edit_UV.text)-
strtofloat(edit_UD.text))/strtofloat(edit_ID.text))*1000);
if StrTofloat(edit_UV.text)>30 then begin
 if MessageDlg('UV darf maximal 30V sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
 end;
 if StrTofloat(edit_UD.text)>5 then begin
 if MessageDlg('UD darf maximal 5V sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
end;
if StrTofloat(edit_ID.text)>75 then begin
 if MessageDlg('ID darf maximal 75mA sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
end;
if StrTofloat(Resistor)>999 then begin
pnl_calculated_resistor.caption := (floattoint((strtofloat(resistor)/
1000))+' KOhm')
end;
if StrTofloat(Resistor)<1000 then begin
pnl_calculated_resistor.caption := (floattoint((strtofloat(resistor)/
1))+' Ohm')

end;
end;

ok Problem Gelöst nun zeigt es aber 10 Stellen nach dem Komma an das muss noch weg 2 stellen rechen