如何实现：使过程按声明中的顺序重新排列？(100)

unit Unit1;interfacetype TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;implementationprocedure TForm1.Button2Click(Sender: TObject);beginend;procedure TForm1.Button1Click(Sender: TObject);beginend;end.有什么工具能实现把implementation中Button2Click、Button1Click按前面Type中的Button1Click、Button2Click的先后顺序重新排列。

ModelMaker

好像d20007已经按这样的顺序处理了

意义不是很大,我都是按CTRL+SHIFT+上下键 来定位的.