Fórum Imagens de botão no Delphi #562691

TNumeros = record
    Valores: Array [0..50] of Integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Meus_Numeros: TNumeros;
   Meu_ArrayVar: Array [0..50] of TNumeros;
   i, j: Byte;
begin
   mmo1.Lines.Clear;
   for i := 0 to 50 do
      Meus_Numeros.Valores[i] := i;
   for i := 0 to 50 do
      Meu_ArrayVar[i] := Meus_Numeros;
   for i := 0 to 50 do
   begin
      for j := 0 to 50 do
      begin
         if Meu_ArrayVar[i].Valores[j] = 0 then
            mmo1.Lines.Add( '- POSIÇÃO '+IntToStr(i)+' -' );
         mmo1.Lines.Add( IntToStr( Meu_ArrayVar[i].Valores[j] ) );
      end;
   end;
end;