void __fastcall Popup_DelClick(TObject *Sender);

void __fastcall TForm1::Popup_DelClick(TObject *Sender)
{
    // удаление строки из таблицы
}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if (Key == VK_DELETE)
    {
        Popup_DelClick(Sender);
    }
}

void __fastcall Popup_DelClick(TObject *Sender, bool fromkey);

void __fastcall TForm1::Popup_DelClick(TObject *Sender, bool fromkey)
{
    if (formkey)
    {
        // ...
    }
    else
    {
        // ...
    }
}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if (Key == VK_DELETE)
    {
        Popup_DelClick(Sender, 1);
    }
}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if (Key == VK_DELETE)
    {
        Popup_DelClick(Sender);
    }
}

void __fastcall TForm1::Popup_DelClick(TObject *Sender)
{
	TMenuItem *ptMenu = dynamic_cast<TMenuItem*>(Sender);
	//TForm *ptForm = dynamic_cast<TForm*>(Sender); 
	
	if (ptMenu) // if (ptForm)
	{
		// ...
	}
	else
	{
		// ...
	}
}

type TNotifyEvent = procedure (Sender: TObject) of object; // простой обработчик
type TMyShitEvent1 = procedure (Sender: TObject; const Param: <тип_параметра>)  of object; // не совсем простой обработчик
type TMyShitEvent2 = procedure (Sender: TObject; var Param: <тип_параметра>)  of object; // не совсем простой обработчик
type TMyFuncEvent = function (Sender: TObject<; другие параметры>): <тип> of object; // и даже так можно!