[YVitaliy]

Если использовать TAction's то можно так сделать:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Clear;
 combobox1.AddItem('Action0',ActionManager1.Actions[0]);
 combobox1.AddItem('Action1',ActionManager1.Actions[1]);
.............................................................
end;
.............................................................
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 (combobox1.Items.Objects[combobox1.ItemIndex] as TAction).Execute;
end;

Ну, или вроде того.