aufprallwinkel eines balles

[mimi]

ja das hatte ich auch.
du bracuhst zwei variabeln (gobal)
Oben:Boolean; Lings:Boolen;

jetzt musst du prüfen ob eine rand berüht wurde und du musst ermitteln welche richtungen frei sind dazu zählt auch ob ein rand in der nähe ist.
die richtungen speicherst du in einen array der 4 fehlder hat(1..4) und jetzt musst du dir nur noch eine funktion schreiben die schaut welches fehld True und welches fehlt False hat es geht sogar noch einfacher:
du nimmst einen string. schreibst da die richtungen rein z.b.
strCollision:='r' + 'l' + 'u';

würde beuten das die rechte, linke und die untere seiten frei währen.
jetzt ermittelst du die länge und gibt die bei Random an z.b. in unserem fall jetzt:
if strCollision[random(3)] = 'r' then ....

so änliche würde ich es machen