源代码内保留字大写设置问题(100分)

由于某种标准，我想把源代码文件中的保留字设置成大写，应该怎么设置？
比如
procedure TForm1.FormCreate(Sender:TObject);
begin
end;
自动设置为
PROCEDURE　TForm1.Form1.FormCreate(Sender:TObject);
begin
end;
而且每键入一个保留字，系统自动把它转化成大写
例如：
for i:=0 To 100 do
begin
end;
自动设置成
FOR i:=0 TO 100 do
begin
end;

使用代码排列工具:
http://1000f.com/tools/Delforex.zip