TMemoryStream

[Владимир1988]

Подскажите плиз, почему при чтении потока p2 выходит access violation. При записи (первая процедура) все работает отлично.

    SaveButton1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    Memo1: TMemo;
    procedure SaveButton1Click(Sender: TObject);
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SaveButton1Click(Sender: TObject);
var
  i: integer;
  n: array[1..MaxElements] of integer;
  p1: TMemoryStream;
  S: string;
   begin
    for i := 1 to MaxElements do begin
     n[i]:= (i)*(2);
     StringGrid1.Cells[1, i]:= intTostr(n[i]);
      end;
       p1 := TMemoryStream.Create;
        try
         for i := 1 to MaxElements do begin
          S := IntToStr(n[i]) + #13#10;
          p1.WriteBuffer(Pointer(S)^, Length(S));
          p1.Position := 0;
          Memo1.Lines.LoadFromStream(p1);
         end;
         p1.SaveToFile('D:\тест\file34.txt');
        finally
       p1.Free;
     end;
   end;

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  p2: TMemoryStream;
  Length, LE, i:integer;
  k: array[1..MaxElements] of string;
  W: string;
   begin
    p2:= TMemoryStream.Create;
     try
      p2.LoadfromFile('D:\тест\file34.txt'); // загружаю данные из файла в буфер
      p2.position:=0;
      p2.ReadBuffer(PChar(W)^, p2.size); // читаю данные из буфера
      LE := Pos(#13#10, W);
      i:=0;
       while LE> 0 do begin
        inc(i);
        k[i+low(k)-1] := Copy(W, 1, LE - 1);
        delete (W,1,LE+1);
        LE := Pos(#13#10, W);
       end;
      finally
     p2.Free;
    end;
   for i := 1 to MaxElements do
  StringGrid2.Cells[1, I] := (k[i]);
 end;
end.