Сортировка значений в Grid

SELECT lastname, firstname FROM tablename ORDER BY lastname;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[1].Sorted := True; // сортировка второй колонки (нумерация колонок с нуля)
end;

SELECT

UserOP.Famyli,
UserOP.Name,
UserOP.Otchestvo,


(
SELECT TOTAL(Fine.FineMoney) FROM Fine WHERE
(date({DateTimePicker1}) <= date(Fine.DataFine) AND date({DateTimePicker2}) >= date(Fine.DataFine)) AND
Fine.id_UserOP = UserOP.id
),

(
SELECT TOTAL(Prize.PrizeMoney) FROM Prize WHERE
(date({DateTimePicker1}) <= date(Prize.DataPrize) AND date({DateTimePicker2}) >= date(Prize.DataPrize)) AND
Prize.id_UserOP = UserOP.id
),



(
SELECT TOTAL(Prize.PrizeMoney) FROM Prize WHERE
(date({DateTimePicker1}) <= date(Prize.DataPrize) AND date({DateTimePicker2}) >= date(Prize.DataPrize)) AND
Prize.id_UserOP = UserOP.id
)
-
(
SELECT TOTAL(Fine.FineMoney) FROM Fine WHERE
(date({DateTimePicker1}) <= date(Fine.DataFine) AND date({DateTimePicker2}) >= date(Fine.DataFine)) AND
Fine.id_UserOP = UserOP.id
),



UserOP.id

FROM UserOP

WHERE

CASE WHEN '{Edit1}'<>'' THEN UserOP.FIO LIKE '%{Edit1}%' ELSE 1=1 END

frmSvodnayaTabl_TableGrid1_OnChange (Sender: string);
var
   i,c, q : integer;
begin
     q := 0;
        c := frmSvodnayaTabl.TableGrid1.RowCount - 1;
     for i := 0 to c do
         if ValidInt(frmSvodnayaTabl.TableGrid1.Cells[3, i]) then q := q + StrToInt(frmSvodnayaTabl.TableGrid1.Cells[3, i]);

     frmSvodnayaTabl.TableGrid1.Columns[3].Footer.Caption := IntToStr(q); // result
 end;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[1].Sorted := True; // сортировка второй колонки (нумерация колонок с нуля)
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
     Form1.TableGrid1.Columns[2].Footer.FormulaKind := fkSum; // для третьей колонки, нумерация с  нуля
     Form1.TableGrid1.CalculateFooter;

     //Form1.TableGrid1.Columns[2].Footer.Caption := 'Так можете записать свое значение в футер';
end;


begin
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
end.