TImer wechselt bilder nicht aus

[Noedel]

guck dir doch mal den code an. Da siehst du, dass die Anzahl von "Begin" micht gleich der Anzahl der "End" ist.

Delphi-Quellcode:

procedure TForm2.Time_GalierTimer(Sender: TObject);
begin
  if(i < 6) then
  begin
    Memo1.Lines[3]:='Titmer_galier on';
    galier.GetBitmap(i,Char.Picture.Bitmap);
    Memo1.Lines[4]:='galier_pic'+IntToStr(i);
    i:=i+1;
  end
  else
  Begin //fehlt
    Memo1.Lines[5]:='Titmer_galier off';
    i:=0;
    Time_Galier.Enabled:=false;
  end;  //<- Das End ist zu viel, oder aber oben fehlt ein Begin
end;