[ecfisa]

Hola jusar.

Si no entendí mal lo que buscas, creo que podrías hacer:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSmallPoint Matriz[2][2]; //Si los valores a almacenar son grandes usa TPoint
  randomize();
  /* Cargar */
  for(int f=0; f < 2; f++)
    for(int c=0; c < 2; c++) {
      Matriz[f][c].x = random(2);
      Matriz[f][c].y = random(2);
    }
  /* Mostrar */
  for(int f=0; f < 2; f++)
    for(int c=0; c <2; c++)
      ListBox1->Items->Add(Format("%d %d",
        ARRAYOFCONST((Matriz[f][c].x, Matriz[f][c].y))));
}

Saludos.