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

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.

Line := TLine.Create;
Line.StartPoint:=Point3(10, 50, 4);
Line.EndPoint:=Point3(70, 20, 2);
GrObjects.Add(Line);

procedure TForm4.SendOut(obj:TGrObject);
var N:integer;
begin
  n:=GrObjects.IndexOf(obj);
  // Это послылка текущего состояния куда-нибудь
  m1.Lines.Add(FormatDateTime('hh:nn:ss',now)+ ' [' +inttostr(N+1)+'] '+ GrObjects[N].InfoStr);
end;
 
 
procedure TForm4.ProcessObject(obj:TGrObject);
begin
  Obj.First;
  while not obj.EOF do
  begin
    SendOut(obj);
    obj.Next;
  end;
end;

  TGrObject=class
  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;

  obj.Next;

TLine = class(TGrObject)
  private
    FD:TPoint3;
    FS:TPoint3;
    FCurPoint:TPoint3;
    FObmen:boolean;
    FO:Single;
    FOz:Single;
    FCurStep:integer;
  public