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;

[ecfisa]

Hola.

No es necesario hacer:

Código Delphi [-]
   StrTofloat('.16');

Por otro lado, usando StrToFloat el valor '0.16' será correctamente convertido (o no) dependiendo de la configuración regional del S.O.

Hace directamente:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_F1:begin
           label9.Caption:= floatToStr(StrTofloat(label7.Caption) * 0.16);
           label11.Caption:= floatToStr(StrTofloat(label7.Caption)+strTofloat(label9.Caption));
          end;
   // ...
  end;
end;

Saludos.

[edgar_prospero]

excelente respuesta me faltaba el begin jeje y muchas gracias por el consejo del 0.16 se aprecia la ayuda de este foro saludos