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

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
    Tx,Ty,Tz: Single; 
  public
    StartPoint: TPoint3;
    EndPoint: TPoint3;
    t : Single;
    DirXFlag,DirYFlag,DirZFlag: byte;
    procedure First; override;
    procedure Next; override;
  end;
 
  TGrObjects=class(TObjectList<TGrObject>)
  private
  public
    Scale : single;
    constructor Create(AOwnsObjects:boolean);
  end;
var
 
 ArrayOfDirective : array of  TMotorDirective;

procedure TForm1.Init();     // заполнение объектами
var
  Line: TLine;
begin
  GrObjects.Clear;
  Line := TLine.Create;
  Line.StartPoint:=Point3(-10, 50, 4);
  Line.EndPoint:=Point3(-90, 20, 2);
  GrObjects.Add(Line);
   Line := TLine.Create;
  Line.StartPoint:=Point3(11, -51, 41);
  Line.EndPoint:=Point3(71, 21, 21);
  GrObjects.Add(Line);
end;

initialization
  GrObjects:=TGrObjects.Create(true);
finalization
  GrObjects.Free;
  GrObjects:=NIL;
end.

procedure Tform1.WhatADir(obj:TGrObject);
var
ln:Tline;
Eny,EnX,EnZ,DegPinX,DegPinY,DegPinZ,DirX,DirY,DirZ:byte;
 
begin
 
EnY:=1; EnX:=2; EnZ:=16; DegPinY := 64; DegPinX := 1; DegPinZ := 8;
  if Obj is TLine then   // и далее тут может быть множество таких "взятий" из  классов
  begin
     ln:=Obj as TLine;
     DirX:=ln.DirXFlag;
     DirY:=ln.DirYFlag;
     DirZ:=ln.DirZFlag;
     timeOfFigure:=ln.t;
  end;
 
end;

dirx:=0;
diry:=0;
dirz:=0;

procedure TForm1.Button1Click(Sender: TObject);
begin
  shipping;
end;
 
procedure TForm1.shipping;
 var I:integer;
 begin
   for i := 0 to GrObjects.Count-1 do
   begin
    WhatADir(GrObjects[i]);
    ToTheEngine(GrObjects[i]);
   end;
 end;

unit MainProg;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, GrObjectClasses, Vcl.ExtCtrls,
  Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
 ~~~~~~
  private
    procedure shippingMoving;
    procedure WhatADir(obj:TGrObject);
    procedure ToTheEngine(obj:TGrObject);
~~~~
procedure TForm1.Button1Click(Sender: TObject);
begin
  shippingMoving;
end;
 
procedure TForm1.shippingMoving;
 var I:integer;
 begin
   for i := 0 to GrObjects.Count-1 do
   begin
    WhatADir(GrObjects[i]);
    ToTheEngine(GrObjects[i]);
   end;
 end;
 
 
procedure Tform1.ToTheEngine(obj:TGrObject);
var
  Time, Timestart,timebuff:int64;
  i:integer;
  ln:Tline;
   
begin
ln:=Obj as TLine;
i:=0;
 time:=0;
 QueryPerformanceCounter(Timestart);//нынешнее время
 
 While (time >= timeOfFigure) do
  begin
    QueryPerformanceCounter(timebuff);
    time:= timebuff-Timestart;
       (*
        if (ln.ArrayOfDirective[i].t) >= (time) then //до каких пор он будет брать
          begin
            if  ln.ArrayOfDirective[i].axis=1  then
            begin
            Out32(888,ResX1);
            Out32(890,0);
            Out32(890,ResX);
            m2.Lines.Add(inttostr(i) +' ' +FormatFloat('0.0000000000', ln.ArrayOfDirective[i].t) + ' ' +floattostr(ln.ArrayOfDirective[i].dir)+ ' ' +inttostr(ln.ArrayOfDirective[i].Axis)   );
            Application.ProcessMessages;
            inc(i);
            end
            else
             if ln.ArrayOfDirective[i].axis=2 then
            begin
            m2.Lines.Add(inttostr(i) +' ' +FormatFloat('0.0000000000', ln.ArrayOfDirective[i].t) + ' ' +floattostr(ln.ArrayOfDirective[i].dir)+ ' ' +inttostr(ln.ArrayOfDirective[i].Axis)   );
            Out32(888,ResY);
            Out32(888,ResY1);
 
            end
            else
            begin
            m2.Lines.Add(inttostr(i) +' ' +FormatFloat('0.0000000000', ln.ArrayOfDirective[i].t) + ' ' +floattostr(ln.ArrayOfDirective[i].dir)+ ' ' +inttostr(ln.ArrayOfDirective[i].Axis)   );
            Out32(888,ResZ);
            Out32(888,ResZ1);
            Application.ProcessMessages;
            inc(i);
            end;
          end;
          *)
      end;
end;