одномерный массив ошибка

[Op1nG.Spark]

программа запускается сама но при нажатии на Button4 выдает ошибку
.окно Windows c вот такой ошикой


Project 1.exe raised exception class EConvertError with message "is not a valid integer value". Process stoped. Use Step or run to Continue.

вот код

procedure TForm1.Button4Click(Sender: TObject);
var
  min: integer; // номер минимального элемента
  i: integer; // номер элемента сравниваемого с минимальным
begin
  mas[i] := StrToInt(StringGrid1.Cells[i - 1, 0]);
  // поиск минимального элемента
  min:=1; // пусть первый элемент минимальный
  for i :=2 to N do
    if mas[i] < mas[n] then
      min:= i;
  // вывод результата
  Edit1.text:='минимальный элемент массива:'
    + IntToStr(mas[min]) +номер элемента:'+ IntToStr(min);
end;

end.

подскажите что не так.

[Mad_Cat]

StringGrid1.Cells[i - 1, 0]

содержимое вот этого проверьте
и еще где цикл после Begin перед

mas[i] := StrToInt(StringGrid1.Cells[i - 1, 0]);