Abfrage ob sich Images überschneiden?

[arne99]

Wollte es jetzt so machen:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var schnittmenge, image1, image2: TRect;
begin
  image1 := Rect(Image1.left,Image1.Top,
                Image1.left+Image1.Width,Image1.Top+Image1.Height);
  image2 := Rect(Image2.Left, Image2.Top,
                Image2.Left+Image2.Width,Image2.Top+Image2.Height);
  if intersectrect(Schnittmenge, image1, image2) then
  begin

   kollision;
   timer2.Enabled:=false;
   end;
end;

Fehlermeldung: [Error] Unit1.pas(131): Undeclared identifier: 'Width'

Hö? wie kann das sein?

Btw...gibts dazu ein einfaches!?!?! beispiel?
Hab beispielprogramm gefunden, aber ist mir zu hoch! Sorry!