Delphi. Динамический массив при работе с нетипизированными файлами

[Arrow_S]

Всем спасибо, заработало!

Нужно было указать адрес нулевого элемента, только без "@".

     SetLength(PDP, Lp);
     blockread(TM,PDP[0],Lp);
     blockwrite(Vospr, PDP[0], Lp);