Programm hängt sich beim Start auf

[TForm1]

Fehler gefunden!!!
Manchmal hilft ein bisschen auf den Code starren doch...
Das Problem lag in diesem Code:

Delphi-Quellcode:

function TDateiVerwaltung.DateiLaden: TMyArray; //Dynamisches Array
var DatenArray: TMyArray;
    Datensatz: TMyRecord;
    Index, FileIndex: integer;
begin
  try
  FileIndex:= System.FileSize(FFile)-1;
  if FileIndex < 0 then exit; //Falls die Datei noch leer ist, wird nichts zurückgegeben. (Dies muss beim Aufruf berücksichtigt werden)
  Index:= 0;
  repeat
    seek(FFile, Index);
    read(FFile, Datensatz);
    SetLength(DatenArray, Index+1);
    DatenArray[Index]:= Datensatz;
  
  until eof(FFile);

  result:= DatenArray;
  except
  showmessage('Problem beim Laden der Datei');
  end;
end;

Hier fehlt ganz einfach ein inc(Index); Da Index immer 0 blieb wurde daraus eine Endlosschleife.

Schönes WE