[dec]

Hola,

Si no me equivoco deberías hacer algo así:

Código Delphi [-]
 procedure TFiller.cSupplierNameKeyDown(Sender: TObject;
   var Key: Word; Shift: TShiftState);
 begin
   if (Key = VK_F2) or (Key = VK_F3) then
     ConsultaF;
 end;