Grafische Darstellung eines Bereichs

[Johannes013]

Dann meldet er Fehler:

[Fehler] Unit1.pas(34): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
[Fehler] Unit1.pas(34): Inkompatible Typen: 'TRect' und 'TShape'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

unter dem Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  IntersectShape : TShape;
begin
   if IntersectRect(IntersectShape, Shape1, Shape2) then
      begin
         //Anweisung
         halt;
      end;
   Shape1.Left:=Shape1.Left+2;
end;

end.

Ich bin extrem neu......