TImer wechselt bilder nicht aus

[Blackheart]

Delphi-Quellcode:

procedure TForm2.Time_GalierTimer(Sender: TObject);
begin
  if i < 6 then // Die Klammern brauchst du hier nicht unbedingt
  begin
    Char.Picture:=nil; //Altes Bild löschen
    Memo1.Lines[3]:='Titmer_galier on';
    galier.GetBitmap(i,Char.Picture.Bitmap);
    Memo1.Lines[4]:='galier_pic'+IntToStr(i);
    Inc(i); // Ist das selbe wie i:=i+1; nur kürzer
  end
  else
  begin
    Memo1.Lines[5]:='Titmer_galier off';
    i:=0;
    Time_Galier.Enabled:=false;
  end;
end;