[i1uxa]

Здравствуйте. Скажите пожалуйста, как исправить ошибку 'is not valid integer value', вылетающую при работе программы? Как исправить?
Вот код на Delphi:

procedure TForm1.viborClick(Sender: TObject);
var
a,b,i,j:integer;
begin
j:=0;
for i := 1 to n+1 do vibor_1.table_3.Rows[i].Clear;
vibor_1.table_3.RowCount := 2;
viborka.Showmodal;

a:=StrToInt(viborka.table_2.Rows[1].Strings[1]); //мне кажется чтото с
b:=StrToInt(viborka.table_2.Rows[1].Strings[2]); //этими строками, но
// учили вроде делать так чтобы из таблицы перевести в целочисленный
// тип
for i:=1 to n do
begin
if (mstud[i].price>a)and(mstud[i].price<b) then
begin
j:=j+1;
sr[j]:=mstud[i];
end;
end;
for i:=1 to j do begin
vibor_1.table_3.RowCount := vibor_1.table_3.RowCount + 1;
vibor_1.table_3.Rows[i].Strings[0]:= IntToStr(i);
vibor_1.table_3.Rows[i].Strings[1]:= sr[i].name;
vibor_1.table_3.Rows[i].Strings[2]:= IntToStr(sr[i].kol);
vibor_1.table_3.Rows[i].Strings[3]:= sr[i].sovm;
vibor_1.table_3.Rows[i].Strings[4]:= sr[i].color;
vibor_1.table_3.Rows[i].Strings[5]:= IntToStr(sr[i].price);
vibor_1.table_3.Rows[i].Strings[6]:= sr[i].dop;
end;
end;