как организоватьStringgrid с Chart.

[Klyuka]

У меня есть программа, которая выводит лучщего учащегося в группе. Т.е. от лучшего к худшему. Использовал StringGrid и chart и Button. при нажатии на кнопку график не выводит. Вот код программы:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
stringgrid1.cells [0,0]:= 'ФИО учащегося';
stringgrid1.cells [0,1]:= 'Бакунович Игорь Игоревич';
stringgrid1.cells [0,2]:= 'Борисевич Игорь Николаевич';
stringgrid1.cells [0,3]:= 'Вишневский Дмитрий Викторович';
stringgrid1.cells [0,4]:= 'Гелец Дмитрий Васильевич';
stringgrid1.cells [0,5]:= 'Гринько Сергей Николаевич';
stringgrid1.cells [0,6]:= 'Гришко Сергей Генадьевич';
stringgrid1.cells [0,7]:= 'Дранич Олег Витальевич';
stringgrid1.cells [0,8]:= 'Каленкович Эдуард Иванович';
stringgrid1.cells [0,9]:= 'Климович Денис Васильевич';
stringgrid1.cells [0,10]:= 'Ковшик Александр Александрович';
stringgrid1.cells [0,11]:= 'Коляда Андрей Иванович';
stringgrid1.cells [0,12]:= 'Маторницкий Роман Вячеславович';
stringgrid1.cells [0,13]:= 'Михаевич Александр Петрович';
stringgrid1.cells [0,14]:= 'Михасюк Игорь Валерьевич';
stringgrid1.cells [0,15]:= 'Мухин Владислав Генадьевич ';
stringgrid1.cells [0,16]:= 'Осовец Александр Андреевич';
stringgrid1.cells [0,17]:= 'Пасовец Дмитрий Вадимович';
stringgrid1.cells [0,18]:= 'Подгорный Роман Юрьевич ';
stringgrid1.cells [0,19]:= 'Ребковец Артем Александрович';
stringgrid1.cells [0,20]:= 'Саковец Александр Анатольевич';
stringgrid1.cells [0,21]:= 'Сахарчук Максим Анатольевич';
stringgrid1.cells [0,22]:= 'Симонов Сергей Альбертович';
stringgrid1.cells [0,23]:= 'Толмачевец Алексей Александрович';
stringgrid1.cells [0,24]:= 'Чечун Юрий Витальевич';
stringgrid1.cells [0,25]:= 'Юхневич Руслан Викторович';
stringgrid1.cells [0,26]:= 'Золотов Евгений';
stringgrid1.cells [0,27]:= 'Клюка Евгений Сергеевич';
stringgrid1.cells [1,0]:= 'Средний балл';

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var y,x:Real;
begin
x:=strtoint(stringgrid1.cells[1,1]);
y:=strtoint(stringgrid1.cells[1,2]);
Series1.AddXY(x,y);
end;

end.