1:
2:
3:
4:
5:
6:
7:
8:

TMilitaryUnit = class (TUnit)
  protected
    class var FATK: integer; // The ATK of the Unit
    class var FRange: integer; // A Square around the Unit
    class var FReloadTimeOut: single; // How many Seconds To Reload
  public
    procedure Shoot (ObjectIndex: cardinal);
  end;					

1:

TBaseUnit = class (TMilitaryUnit)					

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:

// Hierdrin sind alle statischen Werte
type TStaticValues = class
  public
    BaseUnit_MaxSpeed: integer; // Maximale Bewegungsgeschwindigkeit;
    BaseUnit_Range: integer; // Maximale Reichweite;
    IntruderUnit_MaxSpeed: integer;
    IntruderUnit_Range: integer;
  end;

[...] // Verschiedene Klassen werden deklariert

// Der Bewegungsbefehl, der vorher einfach auf den Wert der Einheit zugegriffen hat.
procedure TUnit.MoveTo (AtX, AtY);
begin
// Von hier bis...
FAimX := AimX;
FAimY := AimY;
DeltaX := AimX-Xpos;
DeltaY := AimY-Ypos;
NDistance:=sqrt((DeltaX*DeltaX)+(DeltaY*DeltaY));

// So und hier bin ich mir nicht ganz sicher?
// Da alle Einheiten Gehen können, habe ich logischerweise
// eine Überklasse mit den nötigen Variablen und Procedures gemacht.
// Wie entscheide ich jetzt hier auf welchen Wert zugegriffen werden soll.
StepsNeeded:=NDistance / MaxSpeed ;

DeltaX:=(DeltaX / StepsNeeded);
DeltaY:=(DeltaY / StepsNeeded);
IsMoving := true;
// ...hier ist die Berechnung des Weges
end;