Hola Elite237, por ahora el único error que veo es que estás asignando dentro de str = format() una sentencia de asignación (Fr.....Caption := ...)
Eso no está permitido en el lenguaje.
Mueve esa setencia de asignación antes de realizar el format:
Código Delphi
[-]
FR......Caption :=
Str := Format (Fr...Caption ,[]);
¿Se entiende?
Saludos,