Ошибка List index of bounds(1)

[Blue Heron]

Доброй ночи! Срочно прошу помощи: при попытке выполнить процедуру procedure TForm1.Button2Click(Sender: TObject);
(т.е запустить кнопку построения диаграммы компилятор выдает сообщение об ошибке:
Project Project1.exe raised exeption class EStringListError with message 'List index of bounds(1)'.
Process stopped...
и выделяет при этом строку t:=StrToFloat(lb.Items[j]);
Все остальное работает.
вот текст исходной программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Chart, ExtCtrls, TeeProcs, TeEngine, Series;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
e1: TEdit;
e2: TEdit;
e3: TEdit;
e5: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label9: TLabel;
Label10: TLabel;
Button2: TButton;
lb: TListBox;
Chart1: TChart;
Series1: TPieSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
sk,sn,k,p:real;
begin
sn:=StrToFloat(e1.Text);
sk:=sn;
p:=StrToFloat(e2.Text);
k:=StrToFloat(e3.Text);
i:=0;
while sk/sn<k do
begin
sk:=sk*(1+p/100);
lb.Items[i]:=FloatToStr(trunc(sk));
i:=i+1;
end;
e5.Text:=IntToStr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
var j,k:integer; t:real;
begin
k:=StrToInt(e5.Text);
with Series1 do
begin clear;
for j:=0 to k do
begin
t:=StrToFloat(lb.Items[j]);
Add(t,' руб.',clRed);
end;
end;
end;
end.

[KREGI]

Можно запихнуть код в

Try
...
Except
...
End;

P.S. Код надо в тег code запихивать на форуме...

[Blue Heron]

не помогло: то же самое!

[NiCola999]

List index of bounds

это говорит о том что у вас в строчке

t:=StrToFloat(lb.Items[j]);

индекс j зашел за предел размера списка
следите за индексами

[Blue Heron]

и какого его тогда размера делать, если он отсчитывается до k ???

[Blue Heron]

Всё: всем спасибо! Проблема была решена исправлением счётчика k на k-1