Warum geht das nicht?

[flattman]

Hallo,
kann mir jemand sagen warum ich immer eine fehlermeldung mit zugriffsverletztung bekomme?

Code:

var memstream:TMemoryStream;
    Filestream:TFileStream;
    P:PByte;
    X:integer;
begin
try
  MemStream.Size := 1024000; 
  P:= MemStream.Memory;   //hier bleibt der compiler stehen
  For X := 0 TO MemStream.Size - 1 Do
  Begin
    P^ := Random(256);
    inc(P);
  end;
  FileStream.CopyFrom(MemStream, 0);

MFG & thx
Flattman