Выяснить, какая из 5-ти кнопок нажата

const
  Act1 = 1;// Метка действия
  Act2 = 2;
var
  Act : byte;// Переменная действия
// Нажатие на 1-ю кнопку
OnButton1Click;
begin
  Act := Act1;// Действие 1
end;
// Нажатие на 2-ю кнопку
OnButton2Click;
begin
  Act := Act2;// Действие 2
end;
// Кнопка выполнить действие
OnButtonClick;
begin
  case Act of// В зависимости от метки выполнить нужное действие
    Act1: Action1;
    Act2: Action2;
  end;
end;

// Глобально
const
  Act1 = 1;// Метка действия
  Act2 = 2;
var
  Act : byte;// Переменная действия
// Далее описание процедур
// Нажатие на 1-ю кнопку
procedure Button1Click(Sender : TObject);
begin
  Act := Act1;// Действие 1
end;
// Нажатие на 2-ю кнопку
procedure Button2Click(Sender : TObject);
begin
  Act := Act2;// Действие 2
end;
// Реакция на нажатие клавиши
procedure EditorKeyPress(Sender: TObject; var Key: Char); 
begin
  case Act of// В зависимости от метки выполнить нужное действие
    Act1: Action1;// Тут нужные тебе настройки
    Act2: Action2;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case (sender as tbutton).Tag of
1:showmessage('кнопка 1');
2:showmessage('кнопка 2');
3:showmessage('кнопка 3');
end;
end;

if button1 then 1
if button2 then 2
if button3 then 3
...