Einrückung bei 'if' mit 'else'-Teil

if HighVal = LowVal
  then begin
       LowTick := LowVal;
       Distance := 0.0;
       Divi := 1;
       end
  else begin
       if HighVal > LowVal
         then Sign := 1
         else Sign := -1;
       a := ln(abs(HighVal-LowVal)/NTick)/ln10;
       b := a-int(a);
       end;

Negativbeispiele:

if a>b then
  rmin:=b
else
  rmin:=a;

Nach der Umformatierung in das korrekte Einrückungsformat sieht obiges Beispiel so aus:

begin
fs:=[];
if str<>'' then
  begin
  if str[1]='('
    then begin
         delete(str,1,1);
         if str<>'' then
           begin
           if str[1]<>'$' then
             str:='$'+str;
           FAGetHex(str,h);
           n:=hex2dec(h);
           for t:=fsBold to fsStrikeOut do
            if (pow2(ord(t)) and n) <> 0 then
               fs:=fs+[t];
           if (str<>'')
             then begin
                  if str[1]=')'
                    then delete(str,1,1)
                    else MessageDlg('A set must end with a )',mtError,[mbOk],0);
                  end
             else MessageDlg('A set must end with a )',mtError,[mbOk],0);
           end;
         end
    else MessageDlg('A set must start with a (',mtError,[mbOk],0);
  end;
str2FontStyle:=fs;
end;