[friz]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.SQL.Text:='select * from table_a order by field1 desc';
Query1.Open;
end;