External excЕption C0000008

[Владимир1988]

При компилировании программы никаких проблем не возникает. А при запуске выходит сообщение External excaption C0000008. При пошаговой отладке возникает сообщение p1 Undeclared identifire.
Подскажите плиз где может быть ошибка?

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

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

var
  Form1: TForm1;
  i:integer;
  n: array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 p1: TStream;
   begin
    p1 := TFileStream.Create('D:\тест\file34.txt', fmCreate or fmOpenRead or fmOpenWrite);
    for i:= 1 to 10 do
    begin
    n[i]:= (i)*(2);
       try
       p1.Write(n[i], SizeOf(n));
         finally
       end;
    p1.Free;
  end;
end;

end.

[Скандербег]

Простая описка.

    try
      p1.Write(n[i], SizeOf(n));
    finally
      p1.Free;
    end;

[Владимир1988]

Нет, проблема где то в другом:
1) программа все равно требует end;
2) и если end; перенести в конец, то все равно выходит данное сообщение

[eoln]

Сообщение от Владимир1988

    for i:= 1 to 10 do
    begin
    n[i]:= (i)*(2);
       try
       p1.Write(n[i], SizeOf(n));
         finally
       end;
    p1.Free;
  end;

Посмотрите, что вы делаете в цикле? При втором проходе р1 будет уже уничтожен. Строку P1.free надо опустить на одну строчку вниз

[Владимир1988]

Все программа пишет поток в файл. Может мне кто нибудь растолковать в каком формате у меня данные в файле, потому что при открытии файла, там какие то буквы и нули.

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

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

var
  Form1: TForm1;
  i:integer;
  n: array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 p1: TStream;
   begin
    p1 := TFileStream.Create('D:\тест\file34.txt', fmCreate or fmOpenRead or fmOpenWrite);
     for i:= 1 to 10 do begin
      n[i]:= (i)*(2);
       try
        p1.Write(n[i], SizeOf(n));
       finally
      end;
     end;
    p1.Free;
   end;

end.