[rrf]

Quizás esto te sirva:

Código Delphi [-]
  Edit1.Text:= FloatToStr(
                int ( ( StrToFloat(JvValidateEdit1.Text)/I ) *100 ) /100
                          );

Está hecho "a ojo", no lo he probado, pero seguramente te funcionará.

Saludos.