Probleme Mit dem Runden von Zahlen

[Gehstock]

Delphi-Quellcode:

function Runden(zahl: double; stellen: integer): double;
var multi: double;
begin
  multi:=IntPower(10, stellen);
  zahl:=round(zahl*multi);
  result:=zahl/multi;

end;

den Code Hab ich aus dem Netz

Delphi-Quellcode:

Resistor := floattostr(((strtofloat(edit_UV.text)-
strtofloat(edit_UD.text))/strtofloat(edit_ID.text))*1000);


if StrTofloat(Resistor)>999 then begin                                  //kohm
pnl_calculated_resistor.caption := FloatToStr(Runden(((strtofloat(resistor)/
1000)), 2)+' KOhm');                                 ******Erzeugt Incompitable types 'string' 'Double'

end;
if StrTofloat(Resistor)<1000 then begin                                 //ohm
pnl_calculated_resistor.caption := FloatToStr(Runden(((strtofloat(resistor)/
1)), 2)+' KOhm');                                    ******Erzeugt Incompitable types 'string' 'Double'
end;

Kann mir das Bitte Jemand helfen Knobel Schon 3 stunden Dran