Case Statement help Delphi

I must do a task for IT. I must make a Distance compare programme, they gave me the info i done the case statement shown here:

procedure TForm1.btnVertoonClick(Sender: TObject);
begin
case cmbxfrom.ItemIndex of
-1 :
begin
case cmbxto.ItemIndex of
-1 : pnlafstand.Caption:= arrafstande[1,1];
0 : pnlafstand.Caption:= arrafstande[1,2];
1 : pnlafstand.Caption:= arrafstande[1,3];
end;
end;
0 :
begin
case cmbxto.ItemIndex of
-1 : pnlafstand.Caption:= arrafstande[2,1];
0 : pnlafstand.Caption:= arrafstande[2,2];
1 : pnlafstand.Caption:= arrafstande[2,3];
end;
end;
1 :
begin
case cmbxto.ItemIndex of
-1 : pnlafstand.Caption:= arrafstande[3,1];
0 : pnlafstand.Caption:= arrafstande[3,2];
1 : pnlafstand.Caption:= arrafstande[3,3];
end;
end;
end;
end;

can someone hint me to the problem:confused
the task must be completed on the 16th of may.
The whole unit is in text format attached