Code formatter - Uppercase first letter

[Sorien]

according http://edn.embarcadero.com/article/10280#3.0 we should use PascalCase/UpperCamelCase for naming it Would be nice to capitalize first letter automatically during code format

like

procedure TDBEventThread.processEvents;
var
  i: Integer;
  str: string;
begin
    for i := 0 to (EventCount - 1) do
    begin
      if (StatusVectorArray[i] <> 0) then
        str := str + FEvents[i] + ', ';
    end;

to

procedure TDBEventThread.ProcessEvents;
var
  I: Integer;
  Str: string;
begin
    for I := 0 to (EventCount - 1) do
    begin
      if (StatusVectorArray[I] <> 0) then
        Str := Str + FEvents[I] + ', ';
    end;