StringGrid сортировка, по строкам Опции

[Alucard]

var
  Form1: TForm1;
  i,j:integer;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
		begin
			with StringGrid1 do
				for i:=0 to ColCount -1 do
					for j:=0 to RowCount -1 do
					cells[i,j]:=inttostr(random(50)+1);
		end;

procedure TForm1.Button2Click(Sender: TObject);
var temp:integer;
begin
	 with StringGrid1 do
			for i:=1 to ColCount -1 do
					for j:=0 to RowCount -1 do
			if StrToInt(cells[i,j])>StrToInt(cells[i-1,j]) then
			  begin
				temp:=StrToInt(cells[i-1,j]);
				cells[i-1,j]:=cells[i,j];
				cells[i,j]:=IntToStr(temp);
			 end;
end;

begin
  randomize;
end.

Код для стрингрида и двух кнопок. Первая формирует, вторая сортирует по убыванию

Помогите плиз:
1.сортировка происходит с шагом на одну клетку, как сделать что бы они выстроились в нужную последовательность после 1 нажатия?
2. нужно сосчитать сумму чисел в строке и выстроить строки по возрастанию этого самого числа

[volvo]

А в ответ - тишина

С использованием минимальных возможностей Дельфи сортировка элементов строк Grid-а по убыванию пишется так:

function mySort(List: TStringList; first, second: Integer): Integer; // это функция сортировки
  function f(index: integer): integer;
  begin result := StrToInt(List.Strings[index]) end;
begin
  result := f(second) - f(first)
end;

procedure TForm1.Button12Click(Sender: TObject);
var
  ts: TStringList;
  i: integer;
begin
  ts := TStringList.Create;
  try
    with StringGrid1 do
    begin
      for i := 0 to RowCount - 1 do
      begin
        ts.Assign(Rows[i]); // Получаем элементы очередной строки
        ts.CustomSort(mySort); // сортируем их как числа по убыванию
        Rows[i].Assign(ts); // возвращаем назад в Грид
      end;
    end;
  finally
    ts.Free;
  end;
end;