Ошибка с массивами

[fizik777]

Пишу программу. В чем ее суть. Она берет текстовый файл dump и из него построчно берет данные .Для каждой строчки кладет третье число из строки в первый массив(masx), четвертый во второй(masy), пятый в третий(masz). И все вроде как хорошо(видно, что данные из последний строки показывает верно через showmessage в конце), но при закрытии программы выскакивает ошибка:
raised exception class einvalidpointer with message 'invalid pointer operation'.
Понял почитав интернет, что это связано с массивами.Однако не понимаю как конкретно.Массивы не маленькие.Но не так чтобы огромные.
На то, что делается при создании формы не обращайте внимание это к сути забора данных из файла не имеет отношения.
Очень прошу помощи.Программа нужна для научной работы.Вот текст программы.Так же прикладываю сам проект и образец файла dump.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sigma:real;
skvadrata:real;
kol:integer;
implementation

{$R *.dfm}
{************************установка начальных значений**************************}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AutoSize:=true;
sigma:=strtofloat(edit1.text);
skvadrata:=1/sigma;
kol:=trunc((strtofloat(edit2.text))/skvadrata);

end;



{************************чтение координат из строки****************************}
function readnumber(text:string;N:integer):real;
var
stroka:String;
flag:boolean;
pos,probel:integer;
begin
pos:=1;flag:=false;probel:=0;
//ищем первый символ после N-го пробела
while probel<N do
begin
if Ord(text[pos])=32 then probel:=probel+1;
pos:=pos+1;
end;
//прибавляем символы пока не найдем следующий пробле
while Ord(text[pos])<>32 do
begin
stroka:=stroka+text[pos];
pos:=pos+1;
end;
//заменяем символ точки на символ запятой
flag:=false;pos:=1;
while flag=false do
begin
if ord(stroka[pos])=46 then
begin
stroka[pos]:=',';
flag:=true;
end;
pos:=pos+1;
end;
//выводим результат в виде числа
result:=strtofloat(stroka);
end;
{********************определяем количество строк в файле***********************}
function TextSize(FileName: string): integer;
var
k:integer;
f:text;
begin
if FileExists(FileName) then
begin
assignfile(f,FileName);
reset(f);
k:=0;
while not(eof(f)) do
begin
readln(f);
inc(k);
end;
result:=k;
end
else
Result := -1;
end;




{******************************чтение координат в массив***********************}

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
razmer,nomer:integer;
masx,masy,masz:array of real;
text1: string;
begin

// открытие файла для чтения
AssignFile(myFile, 'dump.txt');
Reset(myFile);
//определяем количество строк в файле
razmer:=0;
razmer:=TextSize('dump.txt');
//задаем длинну массивов
SetLength(masx, razmer+1);
SetLength(masy, razmer+1);
SetLength(masz, razmer+1);
//читаем данные из файла в массив
nomer:=1;
//while not Eof(myFile) do
while nomer<=(razmer) do
begin
Readln(myFile,text1);
masx[nomer]:=readnumber(text1,2);
masy[nomer]:=readnumber(text1,3);
masz[nomer]:=readnumber(text1,4);
nomer:=nomer+1;
end;
// Закрытие файла
CloseFile(myFile);
ShowMessage( floattostr(masx[8000]) );
ShowMessage( floattostr(masy[8000]) );
ShowMessage( floattostr(masz[8000]) );
end;

end.

[Stilet]

Так!
Во-первых: выкинь нафик TextSize. Без обид но это глупо.
Во-вторых:

procedure TForm1.Button1Click(Sender: TObject);
var
razmer,nomer:integer;
masx,masy,masz:array of real;
begin

// открытие файла для чтения
with TStringList.Create do begin
  LoadFromFile(ExtractFilePath(ParamStr(0))+'dump.txt');
  //задаем длинну массивов
  SetLength(masx, Count+1);
  SetLength(masy, Count+1);
  SetLength(masz, Count+1);

  for nomer:=0 to Count-1 do begin
    masx[nomer]:=readnumber(Strings[nomer],2);
    masy[nomer]:=readnumber(Strings[nomer],3);
    masz[nomer]:=readnumber(Strings[nomer],4);
  end;
  free;
end;


ShowMessage( floattostr(masx[8000]) );
ShowMessage( floattostr(masy[8000])  );
ShowMessage(  floattostr(masz[8000])  );
end;

И в третьих: masx[8000] - откуда число 8000?
Почему выводить именно это значение?

[min@y™]

Посмотрел входной файл. Он небольшой. Кривой говнокод смотреть не стал. Могу написать демо с нуля, если задача интересная.