потоки

[Владимир1988]

Подскажите пожалуйста ,где может быть ошибка.
Необходимо из текстового файла с числами, эти числа через поток записать в массив.

unit TEST1;

interface

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

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure LoadButton1Click(Sender: TObject);

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
 LS, LE, i:integer;
  k: array[1..MaxElements] of integer;
  p2:TStream;
  f:array[1..10] of string;
  W: string;
    begin
     p2:= TFileStream.Create('D:\тест\file34.txt', fmopenread);
      try
       p2.Seek(0,soFromBeginning);
       p2.Read(PChar(W)^, p2.size);
       LS := 1;
       LE := Pos(#13#10, W);
        for i := 1 to MaxElements do begin
         while(LE> 0) do
          f[i] := Copy(W, LS, LE - LS);
          k[i]:=StrToInt(f[i]);
          delete (W,LS, Length(f[i])+1);
          LS := LE + 2;
        end;
       for i := 1 to MaxElements do
      StringGrid2.Cells[1, I] := IntToStr(k[i]);
     finally
    p2.Free;
   end;
  end;
end.