Problem mit Größer als und Kleiner als

[Gehstock]

Hi,
versuche grade ein bereits existierendes Programm nachzubauen um was Dazuzulernen

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(Resistor)<1000000 then begin
pnl_calculated_resistor.caption := (floattostr((strtofloat(resistor)/
1000000))+' MOhm')  )<--  hier ein problem   MOhm wird nich berechnet  ausgabe   z.b 16000 kohm soll aber 16 mOhm sein

end;
if StrToInt(Resistor)>1000 and StrToInt(Resistor)<1000000 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;