procedure Proc(Params: array of Integer);
var
   I: Integer;
begin
   for I := 0 to High (Params) - 1 do ...
end;

...

Proc([12, 34, 56]);

type
   VarProc = procedure (Hello: PChar) stdcall varargs;
   
procedure Test(Hello: PChar; Params: Pointer); stdcall;
var
   p : array [0..31] of record
     case Integer of
       0 : (i : LongInt);
       1 : (s : PChar);
     end absolute Params;
begin
   Writeln(Hello, #9, p[0].i, #9, p[1].i, #9, p[2].i, #9, p[3].s);
end;
...
   VarProc(@Test)('Hi', 1, 2, 3, 'test'); // вызов

int SpriteCount = 0;
for (int i = 0; i < 9; i++){  
          for (int j = 0; j < 5; j++){  
                          floor[SpriteCount].o_move(32 * i, 32 * j);  
                          SpriteCount++;
    
          }  
      }  
             
      sceneBegin();  
    sceneClear(0,0,0);  
          for (int i = 0; i < SpriteCount; i++){  
              floor[i].o_draw();  
          }   
      sceneEnd();

    player.o_move(128, 128);   
    player.o_addinworld();   

    const int MapX = 9;
    const int MapY = 9;
    char field[MapX][MapY];
    memset(field, '.', sizeof(field));

    const int ShipCount = 4;

    for (int i = 0; i < ShipCount; i++) {
     int xPos = rand() % 9;
     int yPos = rand() % 9;

     if (field[xPos][yPos] == '.')
     field[xPos][yPos] = '$'; //тут создаются корабли
    }

     for (int x = 0; x < MapX; x++) {
     for (int y = 0; y < MapY; y++) {
       std::cout << "[ "<< field[x][y] << " ] "; //вывод сетки поля на экран   
     }
     std:: cout << "\n";   
     }

     system("pause");

template <class Type> Type** CreateArray(int x, int y) {
       Type** Array = new Type*[x];   
       for (int i = 0; i < x; i++)   
       Array[i] = new Type[y];   

       return Array;
   }
       
...

char** NewArray = CreateArray <char> (10, 10);