TImer wechselt bilder nicht aus

[Mr.XYZ]

Hi,
dieser Timer läuft eigentlich normal nur wechselt er die Bilder nicht aus und das ist blöd.

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
 Memo1.Lines[5]:='Titmer_galier off';
 i:=0;
 Time_Galier.Enabled:=false;
 end;
end;

end.

es heißt aber auch immer das ein END zu viel wäre aber warum?