У меня такая проблема пытаюсь сделать сортировку при помощи sql. Вот код:

procedure TListClient.BtnSortClick(Sender: TObject);
var s: string;
begin
Data.Query.Close;
Data.Query.ClearFields;
Data.Query.SQL.Add('Select * From Database.db');
case RadioGroup2.ItemIndex of
0: s:='';
1: s:='DESC';
end;
Case RadioGroup1.ItemIndex of
0: s:='ORDER BY Number' + s;
1: s:='ORDER BY IndSurname' + s;
2: s:='ORDER BY IndSex' + s;
3: s:='ORDER BY IndDateBirth' + s;
end;
Data.Query.SQL.Add(s);
Data.Query.Open;
end;

И когда я при проверке пытаюсь сделать сортировку, например по фамилии и по убыванию или любую другую комбинацию появляется ошибка "Query: Dataset is not in edit or insert mode"

как мне это исправить, подскажите пожалуйста!!!!!!!