Сортировка в StringGrid

[mr.stranger]

Подскажите пожалуйста, как написать двойную сортировку:
по алфавиту в первом столбце, а если слова совпали, то по числам в третьем столбце (во втором есть значения, но они не важны)
Логически понимаю, а с написанием проблемы
Надо написать сортировку первого по алфавиту
Потом в рамках группы с одинаковыми значениями первого, написать сортировку по третьему
Есть код ввода, сортировки только по алфавиту и только по числам

[macomics]

if (ms1[j] > ms1[j + 1]) or ((ms1[j] = ms1[j + 1]) and (ms3[j] > ms3[j + 1])) then

[mr.stranger]

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

if (ms1[j] > ms1[j + 1]) or ((ms1[j] = ms1[j + 1]) and (ms3[j] > ms3[j + 1])) then

Вроде работает, но опять смотрит только на первую цифру, а не на число в целом

[mr.stranger]

if RadioButton3.Checked = True then
begin
for i := 1 to StringGrid1.RowCount-1 do
begin
ms1[i] := StringGrid1.Cells[1,i];
ms2[i] := StringGrid1.Cells[2,i];
ms3[i] := StringGrid1.Cells[3,i];
end;
for i := 1 to StringGrid1.RowCount-1 do
for j := 1 to StringGrid1.RowCount-i-1 do
begin
if (ms1[j] > ms1[j + 1]) or ((ms1[j] = ms1[j + 1]) and (ms3[j] > ms3[j + 1])) then
begin
s1 := ms1[j];
ms1[j] := ms1[j+1];
ms1[j+1] := s1;

s2 := ms2[j];
ms2[j] := ms2[j+1];
ms2[j+1] := s2;

s3 := ms3[j];
ms3[j] := ms3[j+1];
ms3[j+1] := s3;

end;
end;
for i := 1 to StringGrid1.RowCount-1 do
begin
StringGrid1.Cells[1,i] := ms1[i];
StringGrid1.Cells[2,i] := ms2[i];
StringGrid1.Cells[3,i] := ms3[i];
end;
end;

[macomics]

А я писал, что надо ms3 сделать целочисленным, а не строковым и преобразовывать строки при заполнении массива.

var
  ...
  ms3: array of Smallint; // +/- 127 лет вам хватит?
begin with StringGrid1 do begin
...
  for i:=1 to RowCount - 1 do
    ms3[i] := strtoint(Cells[3, i]) - 2000;
...
  for i:=1 to RowCount - 1 do
    Cells[3, i] := inttostr(2000 + ms3[i]);
...
end; end;

[mr.stranger]

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

Smallint

Мы такого не проходили

var ms3:array of integer;
...
ms3[i] := StrToInt(StringGrid1.Cells[3,i]);
...
s3 := IntToStr(ms3[j]);
ms3[j] := ms3[j+1];
ms3[j+1] := StrToInt(s3);
...
StringGrid1.Cells[3,i] := IntToStr(ms3[i]); 
...

[macomics]

А мимо остального проходили? Целочисленные типы проходят обычно до сложных типов типа строк, массивов и записей.