Project raised exception class EStringListError

Образовалась ошибка при нажатии на кнопку Buttom в Delhpi.
Текст ошибки:
Project raised exception class EStringListError with message 'List index out of bounds (0). Process stopped. Use Step or Run to continue
Перевод:
Проект поднял класса исключение EStringListError с индексом сообщение "Список из пределов (0). Процесс остановлен. Используйте шаг или Запустить, чтобы продолжить
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
StdCtrls, Dialogs;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
{
ListBox1.Items.Add('0,14');
ListBox1.Items.Add('0,79');
ListBox1.Items.Add('0,35');
ListBox1.Items.Add('0,44');
ListBox1.Items.Add(0,72');
ListBox1.Items.Add('0,96');
}
ListBox1.ItemIndex:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x:array[1..6] of real;
m,a,b,k,z:real;
i:integer;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
for i:=0 to 5 do x[i]:=StrToFloat(ListBox1.Items[i]);
for i:=0 to 5 do
begin
k:=(a*sqr(x[i])+b*sqrt(a*x[i])+sqr(sin(b))*sqr(sin(x[i])));
z:=(b*x[i]+exp(ln(a)*3)+sqrt(1+a+sqr(x[i])));
m:=k/z;
Label7.Caption:=Label7.Caption+#13+'m='+FloatToStr(m)+' '+'x='+FloatToStr(x[i]);
end;
end;
end.
Из-за чего могла возникнуть данная ошибка?

Прикрепленные файлы:
PROFIWM_COM_3182_1211575_ILJbee1NJmI.jpg (143.66 кб)