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

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:

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:
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