Setz da mal als erste Zeile ein Randomize rein. Das hatte ich glatt übersehen.
[edit]
Oh Mann, klar, der Radius steht ja mit 20 fest drin. Ändere zusätzlich mal die genannte Zeile in
Hase.init(clRed,Random(Bild.width-50)+25,Random(Bild.Height-50)+25,Random(9)-4,Random(9)-4,Random(30) + 20);
[/edit]