1:

if  ((not a) or (not b))<>0)  then					

1:

if  ((dx<>0) or (dy<>0)) then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.btnTestClick(Sender: TObject);
  var
    Shape: TShape;
begin
  Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
  Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
  Shape.Name := 'Shape1'; // Name der Komponente
  Shape.Left := 8; // 8 Pixel vom linken Rand
  Shape.Top := 8; // 8 Pixel vom oberen Rand
  Shape.Width := 25; // 25 Pixel breit
  Shape.Height := 25; // 25 Pixel hoch
// Shape.OnMouseDown := Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
end;					

1:
2:

uses
  ..., ExtCtrls;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

    TForm1 = class(TForm)
    btnTest: TButton;
    testShape: TShape;
    procedure btnTestClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

  procedure TForm1.btnTestClick(Sender: TObject);
  var
    Shape: TShape;
begin
  Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
  Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
  Shape.Name := 'Shape1'; // Name der Komponente
  Shape.Left := 8; // 8 Pixel vom linken Rand
  Shape.Top := 8; // 8 Pixel vom oberen Rand
  Shape.Width := 25; // 25 Pixel breit
  Shape.Height := 25; // 25 Pixel hoch
// Shape.OnMouseDown := Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
end;
end.