Компилируеться нормально, но при выводе результата выдаёт ошибку.

[Sciv]

Если уж Вам нужно найти суммы минимумов столбцов, то надо было внешний цикл пускать по столбцам, а не внутренний. Как-то так:

s:=0;
for j:=0 to form8.StringGrid2.ColCount-1 do  begin
  min:=StrToInt(form8.StringGrid2.Cells[j,0]);

  for i:=1 to form8.StringGrid2.RowCount-1 do
    if  StrToInt(form8.StringGrid2.Cells[j,i])<min
    then Min:= StrToInt(Form8.StringGrid2.Cells [j,i]);
  s:=s+min;
end;
Label3.Caption:=IntToStr(s);

Ну или в Вашем варианте кода - поменять местами str И stl:

for i:=0 to stl-1 do begin
   min:=StrToInt(form8.StringGrid2.Cells[i,0]);

  for j:=1 to str-1 do  begin

[Climber-18]

Спасибо. Теперь разобрался.