StringGrid сортировка

[Gregorian]

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. нужно сосчитать сумму чисел в строке и выстроить строки по возрастанию этого самого числа

[KoliyR]

Сообщение от Gregorian

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;

Для начала предлагаю cells[i,j]:=IntToStr(temp); вынести из условия
и for j:=0 to RowCount -1 do изменить на for j:=i to RowCount -1 do
перед вторым циклом заносить в temp первое значение


примерно так, но я сейчас не могу проверить