Dartspiel programmieren mit Delphi

[egarF]

mhmh, ich kenn mich ja noch nicht wirklich sooo gut aus, deswegen ist die aufgabe, eine dartscheibe zu programmieren echt schwierig für mich...

hier tritt folgender fehler auf :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  if progressbar1.Position=100 then
    progressbar1.step:=-10
  else if progressbar1.Position=0 then
    progressbar1.step:=10;
  progressbar1.Stepit;
end;

begin

  if progressbar2.Position=100 then
    progressbar2.step:=-10
  else if progressbar1.Position=0 then
    progressbar2.step:=10;
  progressbar2.Stepit;

end;

--> [Fehler] Unit1.pas(148): Anweisung erwartet, aber 'PROCEDURE' gefunden
[Fehler] Unit1.pas(148): Deklaration von 'Timer1' unterscheidet sich von vorheriger Deklaration
[Fehler] Unit1.pas(151): Undefinierter Bezeichner: 'progressbar1'
[Fehler] Unit1.pas(151): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(153): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(160): Undefinierter Bezeichner: 'progressbar2'
[Fehler] Unit1.pas(160): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(162): 'THEN' erwartet, aber Bezeichner 'Position' gefunden
[Fehler] Unit1.pas(172): Undefinierter Bezeichner: 'Timer1'
[Fehler] Unit1.pas(175): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(178): ';' erwartet, aber Dateiende gefunden
[Fehler] Unit1.pas(28): Ungenügende Forward- oder External-Deklaration: 'TForm1.Durchlaufstoppen2Click'
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden


Kann ich das überhaupt SO in die timer procedure reinschreiben?