Array of Boolean verarbeiten

[Back2Code]

Steh jetzt leider vorm nächsten Problem nämlich dem Laden...

Delphi-Quellcode:

procedure TForm2.S2Click(Sender: TObject);
var StrList: TStrings;
    x, y, i, j: integer;
begin
  if OpenDialog1.Execute then begin
    StrList := NIL;
    StrList := TStringList.Create;
    StrList.LoadFromFile(OpenDialog1.FileName);

    try
      for x := MaxX downto 0 do
        for y := MaxY downto 0 do
        begin
          UniversumsMatrix[x,y] := StrToBool(StrList.Strings. ??
        end;
    finally
      StrList.Free;
      RasterDrawGrid.Repaint;
    end;
  end;
end;

Das war jetzt so mein Ansatz aber das will vorne und hinten nicht