1:
2:

type Tarray = array of array of integer;
function fehler (ar: tarray;a,b,x:integer) : boolean;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y,z:integer;
begin
...
until fehler(ar,a,b,x)=false or (ar[a,b]>9); //<---Hier triit der Fehler auf!
...
end;					

1:
2:
3:

var
  Form1: TForm1;
  ar: Array of array of integer;					

1:
2:
3:

var 
  Form1: TForm1; 
  ar: TArray;					

 
5:

{ ... }
until (not fehler(ar,a,b,x)) or (ar[a,b]>9);