Сортировка в БД

[kuzmich]

Посмотрите, пожалуйста, правильный код или нет. А то что то не работает!

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
Table1.Active:=False;
Table1.Close;

if radiogroup1.ItemIndex=0 then
begin
Form2.Query1.Close;
Form2.query1.sql.Clear;
Form2.query1.SQL.Add('select * from student.db order by FIO');
Form2.query1.Open;

end;
if radiogroup1.ItemIndex=1 then
begin
Query1.Close;
query1.sql.Clear;
query1.SQL.Add('select * from student.db order by Gruppa');
query1.Open;
end;
if radiogroup1.ItemIndex=2 then
begin
Query1.Close;
query1.sql.Clear;
query1.SQL.Add('select * from student.db order by DR');
query1.Open;
end;
   {
if Form2.Query1.RecordCount<>0 then
begin
DBGrid1.DataSource:=DataSource2;
end; }
 Table1.Open;
end;

зарание спасибо!

[mihali4]

И "чито" не работает? "Что-то"? Как это понимать?
И "чито" мы хотим получить?
Экономьте наше время, нам некогда разгадывать ваши тайные желания...