wie kann ich bestimmte Infos aus Textdokument einlesen?

[Bummi]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TVektor = record
    x, y, z: real;
  end;
  TDreieck = Class
    n: TVektor; // n ist Normalvektor
    p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
  end;

  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FList:TList;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
 i:Integer;
 d:TDreieck;
begin
    FList:=TList.Create;
    for I := 0 to 10 do
       begin
          d :=TDreieck.Create;
          d.n.x := Random(100);
          d.n.y := i;
          FList.Add(d);
       end;
    Showmessage(FloatToStr(TDreieck(Flist[5]).n.y));
    for I := Flist.Count-1 to 0 do TDreieck(Flist[i]).Free;
    FList.Free;

end;

end.