was heißt begin begin ?

[mimi]

Hallo,
mir ist heute bei einem projekt von mir ein seltsammer fehler aufgefallen den ich eingebaut hatte und zwar:

Delphi-Quellcode:

case message.msg of 
    WM_MOUSEMOVE: begin
      if isMousesel = True then begin
        index:=GetItemIndex;
        if index > -1 then begin begin
          SetItemindex(index,True);
        end
      end; // is_mouseMove
       isMouseSel:=true;
       Draw;
    end; // wm_mouseMouve
    end; // zu viel
...
end;

und als ich die end's nach volziehen wollte war es mir ein rätzel warum da zwei end sind ich konnte es mir nicht erkläeren bis mir aufgefallen ist: da sind zwei begins... was bedeutet sowas ? kann mir das jemmand erklären was das mit begin begin bedeutet ?