Olá como utilizar um BitBtn e o evento onKeyPress

Olá como posso resolver esta situação

tenho o procedimento abaixo:

Tenho um botão no evento onKey press dele coloquei a rotina abaixo só que ele não faz nada

Como resolvo este problema: Quero colocar a rotina do botão para inserir, salvar e consultar.

procedure TFrmVendas.BtnVFiniMesa100KeyPress(Sender: TObject; var Key: Char);

var codautven: integer;

begin

if key = #13 then // tecla ENTER

if pagecontrol1.Activepageindex = 2 then

begin

 TabSheet1.TabVisible:= true;

 TabSheet2.TabVisible:= false;

 TabSheet3.TabVisible:= false;

 DM_Dados.ClientDataSetMesa.Open;

 Dm_Dados.ClientDataSetMesa.Insert;

 DM_Dados.ClientDataSetAuxCodMesa.Open;

 DM_Dados.ClientDataSetAuxCodMesa.Last;

 codautven:= DM_Dados.ClientDataSetAuxCodMesaCOD_MESA.Value + 1;

 Dm_Dados.ClientDataSetMesaCOD_MESA.Value:= codautven;

 DBEditCodProPedido.SetFocus;

 DM_Dados.ClientDataSetAuxCodMesa.Close;

 DM_Dados.ClientDataSetMesaNUM_MESA.Value:= 100;

 DM_Dados.ClientDataSetMesaDATA_MESA.Value:= date;

 DM_Dados.ClientDataSetMesaHORA_MESA.Value:= time;

 end

 else

 if key = #27 then // tecla TAB

 if pagecontrol1.Activepageindex = 2 then

 begin

 ShowMessage('ola');

 end;

end;