1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm2.Button1Click(Sender: TObject);
var b,zu,erg,rest:integer;
begin
randomize;
zu:=random(200);
pfeil.start(zu);
timer1.Enabled:=true;
{
 Hier ist der Knackpunkt. Jetzt muss ich irgendwie sagen,
dass er erst den Timer beenden muss und dann weitermacht
mit der Rechnung, die ich jetzt mal gekürzt habe. Ich weiß
leider nicht wie ich eure Tips einbauen soll, aber danke
schon einmal dafür.
}
erg:=pfeil.x div 50;
rest:=pfeil.x mod 50;
if (erg=0) or ((erg=1) and (rest=0)) then b:=1;
...
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
pfeil.va:=pfeil.va-0.5;
anzeigen(pfeil);
end;

procedure anzeigen(pfeil:tpfeil);
begin
pfeil.zeichnen(form2.canvas, form2.color);
if pfeil.va<=0 then pfeil.va:=0;
pfeil.x:=pfeil.x+round(pfeil.va);
if pfeil.x>form2.ClientWidth then pfeil.x:=0;
pfeil.zeichnen(form2.Canvas, pfeil.farbe);
end;                    

1:
2:
3:
4:
5:

Timer1.enabled := true;

while Timer1.Enabled do begin
  Application.ProcessMessages;
end;