Двойная сортировки - по строковому признаку, а если строка совпадает, то по 1му числовому признаку

procedure TForm1.Button1Click(Sender: TObject);
 var a,f1,f2,f3,b,c,q1,q2,q3,q4:integer;
ms1,ms2,ms3: array of string;
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;
 
SetLength(ms1,StringGrid1.RowCount);
SetLength(ms2,StringGrid1.RowCount);
SetLength(ms3,StringGrid1.RowCount);
 
 
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a]=Trim(Edit1.Text) then
q1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a]=Trim(Edit2.Text) then
q2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a]=Trim(Edit3.Text) then
q3 := 1;
q4 := q1 + q2 + q3;
 
Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),c,f2);
Val(Trim(Edit3.Text),b,f3);
 
if (Length(Edit1.text)<>0) and (Length(Edit2.text)<>0) and (Length(Edit3.text)<>0) and (f2=0) and (f1<>0) and (f3<>0) and (c>0) then
begin
if q4 <> 3 then
begin
 
for a := 1 to StringGrid1.RowCount-1 do
ms1[a]:= Trim(StringGrid1.Cells[1,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms2[a]:= Trim(StringGrid1.Cells[2,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms3[a]:= Trim(StringGrid1.Cells[3,a]);
 
StringGrid1.ColCount := 0;
StringGrid1.ColCount := StringGrid1.ColCount + 1;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
 
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[1,a] := ms1[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[2,a] := ms2[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[3,a] := ms3[a];
 
StringGrid1.Cells[1,StringGrid1.RowCount-1] := Edit1.Text;
StringGrid1.Cells[2,StringGrid1.RowCount-1] := Edit2.Text;
StringGrid1.Cells[3,StringGrid1.RowCount-1] := Edit3.Text;
 
for a :=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[0,a] := IntToStr(a)
end
else
ShowMessage('Дубль');
end
else
ShowMessage('Ошибки в таблице');
end;
 
 
end.