Delphi - simplificar Popupmenu

He escrito un procedimiento para cada opción de un Popupmenu. ¿Cómo podría simplificarlo?

procedure TForm1.Undo2Click(Sender: TObject);
begin
case Form1.ActiveControl.TabOrder of
0: Edit_0.Undo;
1: Edit_1.Undo;
2: Edit_2.Undo;
3: RichEdit_3.Undo;
4: RichEdit_4.Undo;
end;
end;

Gracias.

Porque no utilizas el ActionList o ActionManager y asi tendras un monton de Standard Actions y presindiras de escribir codigo, sobre todo para Edir y RichEdit y Dataset..