> -- Trurl писал(а):
> Исходный пример должен бы работать, если бы не одна "мелочь".
Вот, попробовал.
## Код:
```
procedure ArrayIncrement(VAR x: array of integer); stdcall; external 'MyDll.dll';
var i: integer; 
    a: array [0..4] of integer; 
begin 
  for i:= 0 to 4 do  
  begin 
      a[i] := 0; 
  end; 
  ArrayIncrement(a); 
  for i:= 0 to 4 do 
  begin 
      writeln(a[i]);
  end; 
end.
```

выводит
1
1
1
1
0