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;