как в делфи запрограммировать кнопку "min"?(поиск минимального числа)

for i : = 0 to stringgrid.row.count-1 do
if min > strtoint(stringgrid.cells[i,0]) then min := strtoint(stringgrid.cells[i,0]) ;
как то так, с индексами посмотри и с ячейками