Problem Mit FloatToStr

[inherited]

ich hab jetzt ein bisschen rumgedebugged(was für ein wort) und es scheint an meiner if-abfrage zu liegen dessen teil der o.g. quelltext ist und nicht daran. Vielen dank trotzdem
ach ja auch da find ich den fehler nicht(nicht erschrecken das ist gerade so verkompliziert weil ich den fehler gesucht hatte und es deshalb zerlegt in einzelne schritte)

Delphi-Quellcode:

var
  erg2: String;
  erg3: Integer;
  erg4, erg5: Real;

//...

procedure Runden(erg1: String);
var i: Integer;
for i := 1 to length(erg1) do
  begin
    erg2:=erg2+'0';
    erg2[i]:=erg1[i];
    if erg1[i]= ',' then
    begin
      erg2[i+1]:=erg1[i+1];
      erg2[i+2]:=erg1[i+2];
      if erg1[i+3]='5' or if erg1[i+3]='6' or if erg1[i+3]='7' or if erg1[i+3]='8' or if erg1[i+3]='9' then
      begin
        erg3:=round(StrToInt(erg2)*100);
        erg2:=IntToStr(erg3);
        erg4:=StrToFloat(erg2);
        erg5:=erg4/100.0;
        erg2:=FloatToStr(erg5);
        erg2:=IntToStr(erg3);
      end;   //hier liegt der fehler
    end;
  end;
end;