[NIch]

...как в Stringgrid в столбце можно найти максимальный элемент...как сделать так чтоб в столбце числа, шли по убыванию

StringGrid это обычный 2-мерный массив с размерами CollCount и RowCount
Чтобы найти максимальный элемент и сделать по убыванию нужно провести обычную сортировку пузырьком

Код:

 
var
 t : word;//временная переменная
begin
with StringGrid1 do
 for j:=0 to CollCount-2 do 
  for i:=0 to CollCount-j-2 do 
   if StrToInt(SG.Cells[i, 0]) < StrToInt(Cells[i+1, 0]) then
   begin
    t := StrToInt(SG.Cells[i, 0]);
    StrToInt(SG.Cells[i, 0]) := StrToInt(SG.Cells[i+1, 0]);
    StrToInt(SG.Cells[i+1, 0]) := t;
   end;
end;

PS Здесь сортируется первый столбец...