Debugging: Zugriffsverletzung, Prüfen ob Punkt im Dreieck

[Shimau]

Mmh, Freude hat nicht lang angehalten: Nächste Zugriffsverletzung:

Delphi-Quellcode:

//Alle möglichn Kombinationen suchen
procedure TForm1.Auswahl2;
var n, i {Zählvariable}:integer;
    Bild:TBild; //Ablagerungsvariable
begin
  Bild:=TBild.Create;
  n:=Length(Punkte) div 3;     // 3n Punkte --> n Dreiecke pro Bild
  SetLength(Bilder,0);         //<-- daran glaub ich liegts, lösche ich da das Array?
  SetLength(Bild.Dreiecke,0);
  if n-1<Length(moglDE)-n
  then
  begin
    for i:=0 to n-1 do
    begin
      SetLength(Bilder,Length(Bilder)+1);
      Bild.Dreiecke[i]:=TDreieck.Create;
      Bild.Dreiecke[i]:=moglDE[i];
      Ausw2rek(Bild,i);
    end;
  end
  else
  begin
    for i:=0 to Length(moglDE)-n do
    begin
      SetLength(Bilder,Length(Bilder)+1);
      Bild.Dreiecke[0]:=TDreieck.Create;         // Deklaration stimmt jetzt oder?
      Bild.Dreiecke[0]:=moglDE[i];               //<-- hier
      Ausw2rek(Bild,i);
    end;
  end;
end;

Erläuterung:
Bilder :array of TBild
Bild:

Delphi-Quellcode:

TBild = class
  public
    Dreiecke:array of TDreieck;
    function GetAbwFA:real;
    function GetGesFA:real;
    function GetQualit(grAnt,gleich:boolean):real;
    property AbwFA:real read GetAbwFA;
    property GesFA:real read GetGesFA;
  end;