[BlackEric]

А так же не забываем выделять память под массив.

Код:

GetMem(Mat, SizeOf(MatS));
FillChar(Mat^, SizeOf(MatS), 0);