TImer wechselt bilder nicht aus

[himitsu]

jetzt siehst du mal, wozu eine ordentliche Einrückung gut ist,
denn dann kommt bei dem Code dieses raus

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 zuviel

vermmutlich meinst du es aber so

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