while Pos('.', MiString) <> 0 do Delete(MiString, Pos('.', MiString), 1); MiFloat := StrToFloat(MiString);