Einrücken ::: ::: Wie rückt ihr ein?

[Phantom1]

so mach ichs eigentlich immer:

Delphi-Quellcode:

procedure Button1.Click(Sender: TOBject);
var
  c: Integer; 
begin
  if 1 > 0 then begin
    Label1.Caption := 'test1';
  end else begin
    if x = y then begin
      for c := d to e do begin
        // Do Something
      end;
    end;
    Label1.Caption := 'test2';
  end;
end;

damit wäre ich aber auch noch einverstanden:

Delphi-Quellcode:

procedure Button1.Click(Sender: TOBject);
var
  c: Integer; 
begin
  if 1 > 0 then
  begin
    Label1.Caption := 'test1';
  end 
  else
  begin
    if x = y then
    begin
      for c := d to e do
      begin
        // Do Something
      end;
    end;
    Label1.Caption := 'test2';
  end;
end;

und alles andere geht bei mir garnicht! ^^

@MichaelLinden: da du nach der If-bedingung das begin um eins eingerückt hast musst duch auch das begin im procedurenkopf um eins einrücken, wenn schon denn schon ^^