Redis - огромное вам спасибо))))
edit1.text := IntToStr(z):
FloatToStr(z); в последней строчке, а не то, что у вас написано.