Interagieren mit Objekten (Spiel)

[rawsoul]

Wow, das klingt ja gut!
Ich werde es testen (und Ergebnisse einstellen, falls erwünscht), vielen Dank!

//Edit:
Irgendwas mache ich wohl falsch
Habs mal in nem Timer probiert:

Delphi-Quellcode:

var
  Form1: TForm1;
  points1:array [0..4] of tpoint;
  poly:hrgn;
  dc:hdc;
  hbr:hbrush;

[...]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
  dc:=GetDC(Handle);
  for i:=0 to 4 do
    begin
      points1[i]:=point(random(form1.clientWidth),random(form1.clientHeight));
    end;
  poly:=CreatePolygonRgn(points1,5,2);
  fillrgn(dc,poly,hbrush(rgb(255,0,0)));
end;

Ich seh leider nichts auf dem Form. Wo mache ich da den Fehler?

//Edit2:
Zu früh aufgegeben... Jetzt hab ichs, danke euch