По классам: прямая линия в пространстве, её обход

unit Actions;
 
interface
uses
 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;
type
 
  TPoint = record
    X: extended;
    Y: extended;
    Z: extended;
  end;
 
  TAction=class
   Function ExecuteAction():boolean; virtual; abstract;
  end;
  TLine = class(TAction)
    StartPoint, EndPoint: TPoint;
    Function ExecuteAction():boolean; override; // ÿ äîáàâèë
  end;
 
  TActionList=array of TAction;
  procedure ExecuteActions(ActionList: TActionList);
 
implementation
uses unit4;
 
procedure InitializaActions(ActionList: TActionList);
var
  Line: TLine;
begin
  SetLength(ActionList, 3);
  Line := TLine.Create;
  Line.StartPoint.X := 0.01;
  Line.StartPoint.Y := 0.05;
  Line.StartPoint.Z:= 0.4;
  Line.EndPoint.X := 0.07;
  Line.EndPoint.Y := 0.2;
  Line.EndPoint.Z := 2;
  ActionList[0] := Line;
 
  Line := TLine.Create;
  Line.StartPoint.X := 1;
  Line.StartPoint.Y := 0.5;
  Line.StartPoint.Z:= 0.04;
  Line.EndPoint.X := 1.7;
  Line.EndPoint.Y := 2.2;
  Line.EndPoint.Z := 5;
  ActionList[1] := Line;
 
  Line := TLine.Create;
  Line.StartPoint.X := 1;
  Line.StartPoint.Y := 2.5;
  Line.StartPoint.Z:= 5.1;
  Line.EndPoint.X := 0.77;
  Line.EndPoint.Y := 0.25;
  Line.EndPoint.Z := 0.54;
  ActionList[2] := Line;
end;
 
procedure TLine.ExecuteAction(StartPoint,EndPoint: TPoint);   // ÷åðòèì ïðÿìóþ
begin
   
end;
 
 
procedure ExecuteActions(ActionList: TActionList);
var
  i: integer;
begin
  InitializaActions(ActionList);
  for I := 0 to High(ActionList) do
  begin
    ActionList[i].ExecuteAction();
  end;
 
end;
 
end.

TLine = class(TGrObject)
  private
    FCurStep:integer;

TGrObject=class
  private
    FCurStep:integer;

  TGrObject=class
  private
    FCurStep:integer;
  public
    procedure First; virtual; abstract;
    procedure Next; virtual; abstract;
    function Eof: boolean; virtual; abstract;
    function CurPoint:TPoint3; virtual; abstract;
    function InfoStr:string; virtual; abstract;
end;

  TCircle = class(TGrObject)
  private
  public
    procedure First; override;
    procedure Next; override;
    function Eof:Boolean; override;
    function CurPoint:TPoint3; override;
    function InfoStr:string; override;
  end;

public
  Center:TPoint3;
  Radius:single;

constructor TGrObjects.Create(AOwnsObjects: boolean);
begin
  inherited Create(AOwnsObjects);
  scale:=1;
end;

type
TMotorDirective = record
    t: int64;
    dir: boolean;
    Axis: byte;
  end;
~~~
var
 ArrayOfDirective : array of  TMotorDirective;

SetLength(ArrayOfDirective, ХЗ_какой_но_размер_надо_задать_массиву);
for i := 0 to high(ArrayOfDirective) fo
begin
  ArrayOfDirective[i].t:=???
  ArrayOfDirective[i].dir:=???
  ArrayOfDirective[i].axis:=???
end;

procedure TLine.First;   // все входные данные
var
 Lx,Ly,Lz,V,S:Single;
begin
v:=10;
~~~

{ TGrObjects }
 
 
 
{ TLine }

TLine = class(TGrObject)
  private
    timeByX,timeByY,timeByZ,t,L: Single; // время до которого будем записывать в массив команду для шага по оси
    Tx,Ty,Tz: Single;  // период шага
  public
    StartPoint: TPoint3;
    EndPoint: TPoint3;
    DirXFlag,DirYFlag,DirZFlag: byte;
    procedure First; override;
    procedure Next; override;
  end;

procedure TForm1.b2Click(Sender: TObject);
var I:integer;
begin
    for i := 0 to GrObjects.Count-1 do
   begin
    WhatADir(GrObjects[i]);
    ToTheEngine(GrObjects[i]);
   end;
end;
 
procedure Tform1.WhatADir(obj:TGrObject);
begin
   DirX:= tline.Create.DirXFlag; [B]тут как быть [/B]
   DirY:=0;
   Dirz:=0;
end;

var Ln:TLine;
begin
  if GrObjects[i] is TLine then
  begin
     ln:=GrObjects[i] as TLine;
     ln.DirXFlag := 1;
  end;
end;

  ln.DirXFlag := 1;

function Tform1.GetADir(obj:TGrObject; var ADir:integer):boolean;
var Ln:TLine;
begin
  result := false;
  ADir:=-1;
  if Obj is TLine then
  begin
     ln:=Obj as TLine;
     result := true;
     ADir:=ln.ADirXFlag;
  end;
end;
 
...
if GetADir(GrObjects[i], ADir) then
   showmessage(inttostr(ADir));