Also Objekte kannst du mit left und top bewegen...willst du das Objekt um eins nach rehcts verschieben setzt du Left einfach eins weiter also z.B.
Panel1.left:=Panel1.left +1
nach links dann minus
Nach unten bewegst du das ann mit
Panel1.top:=Panel1.top+1
Nach unten dann auch wieder minus
Wenn du das Objekt an der Wand abprallen lassen willst musst du das kontolieren, indem du schaust, ob der Rand des Objektes am Rand vom Fenster bzw. PaintBox o.ä. ist.
Heist also...
Delphi-Quellcode:
Repeat
Panel1.left:=Panel1.left+1
Until Panel1.left=Form1.width-Panel1.width