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 StrToInt(edit_UV.text)>30 then begin
 if MessageDlg('UV darf maximal 30V sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
 end;
 if StrToInt(edit_UD.text)>5 then begin
 if MessageDlg('UD darf maximal 5V sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
end;
if StrToInt(edit_ID.text)>75 then begin
 if MessageDlg('ID darf maximal 75mA sein!',
    mterror, [mbOK], 0) = mrok
 then exit;
end;
if StrToInt(Resistor)>999 then begin
pnl_calculated_resistor.caption := (floattostr((strtofloat(resistor)/
1000))+' KOhm')
end;
if StrToInt(Resistor)<1000 then begin
pnl_calculated_resistor.caption := resistor+' Ohm'

end;
end;

so klappt es nur noch 1 problem wenn ich hier "edit_UD.text" eine ganze zahl eintrag also 3 oder 4 klappts aber wenn ich z.B. 3,6 eintrag dann kommt "3,6 is not an integer value"

sollte damit zu tun haben das 5 ja ne ganze zahl ist "if StrToInt(edit_UD.text)>5 then begin" 5,0 klappt aber auch nicht

und edit_ID.text kann komischerweise nicht mehr als 25 sein --->is not valid integer value----> weil wenn hier "pnl_calculated_resistor.caption " kommastellen autreten dann kommt der fehler 40 klappt wieder