operaciones al pulsar la tecla F1

[edgar_prospero]

que hay amigos aqui con una duda tengo varios label con los cuales hago operaciones de multiplicar y sumar bueno lo que quiero lograr es que cuando yo le de a la tecla F1 me haga las operaciones lo intente con el siguiente codigo pero me marca un error que dice [DCC Error] Unit4.pas(163): E2026 Constant expression expected

a ver si alguien puede echarme la mano con eso

Código Delphi [-]
procedure TForm4.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 case Key of
    VK_F1:

      label9.Caption:= floatToStr( StrTofloat(label7.Caption) * StrTofloat('.16'));
 label11.Caption:= floatToStr( StrTofloat(label7.Caption) + strTofloat(label9.Caption) );
    end;
end;