Vereinfachen von Quellcode?

[shmia]

Delphi-Quellcode:

begin
     case PageControl1.ActivePageIndex of 
      0 : SynEdit1.Undo;
      1 : SynEdit2.Undo;
      2 : SynEdit3.Undo;
     end;
end;