procedure TForm1.Button1Click(Sender: TObject); var X: array of byte; Y: array[0..1] of byte; begin ShowMessage(IntToStr(SizeOf(Y))); SetLength(X, 2); ShowMessage(IntToStr(SizeOf(X))); end;