Zitat von
Mr.XYZ:
ja ich sehe es aber warum klappt das mit den Bildern nicht?
Dann sieh nochmal genauer hin und prüfe mal nach, was dein Code ohne dieses BEGIN macht,
denn dein Code macht quasi dieses hier:
Code:
[b]procedure[/b] TForm2.Time_GalierTimer(Sender: TObject);
[b]begin[/b]
[b]if[/b] (i < 6) [b]then
begin[/b]
Memo1.Lines[3]:='Titmer_galier on';
galier.GetBitmap(i,Char.Picture.Bitmap);
Memo1.Lines[4]:='galier_pic'+IntToStr(i);
i:=i+1;
[b]end
else[/b]
[color=silver][b]begin[/b][/color]
Memo1.Lines[5]:='Titmer_galier off';
[color=silver][b]end[/b];[/color]
i:=0;
Time_Galier.Enabled:=false;
[b]end[/b];
[b]end[/b]; [color=green]// END zuviel[/color]
Tipp: schau mal, was die letzen 2 Befehle machen