Сохранить сортировку в таблице в базе данных

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
Module.JurnalQuery.Append;
Module.JurnalQuery.FieldByName('Название поля 1').AsString:= Edit1.Text;
Module.JurnalQuery.FieldByName('Название поля 2').AsString:=ComboBox2.Text;
Module.JurnalQuery.FieldByName('Gorod').AsString:=Edit3.Text;
Module.JurnalQuery.FieldByName('Название поля 4').AsString:=Edit4.Text;
Module.JurnalQuery.FieldByName('Название поля5').AsString:= ComboBox1.Text;
Module.JurnalQuery.FieldByName('Название поля6').AsString:= Edit5.Text;
Module.JurnalQuery.FieldByName('Название поля7').AsString:= Edit6.Text;
Module.JurnalQuery.Post;
//-------------------------------------- сортировка ----------------------
Module.JurnalQuery.Close;
Module.JurnalQuery.SQL.Clear;
Module.JurnalQuery.SQL.Add('SELECT* FROM tab1');
Module.JurnalQuery.SQL.Add('ORDER BY [Gorod] ASC'); // ORDER BY [Gorod] ASC = по возрастанию   DESC= по убыванию
Module.JurnalQuery.Open;
//-------------------------------------------------------------------------
Form8.Close;
 
end;