for в обратном порядке

procedure ListBox_Show_Button7_OnClick (Sender: TObject; var Cancel: boolean);
var
list:TStringList;
i,c:integer;
begin
  list:=TStringList.Create;
  list.Text:=SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM q' );
  c:=list.Count;
  listBox.Items.Clear;
  for i:=1 to c do
  begin
    listBox.Items.Add(SQLExecute('SELECT dd FROM q WHERE id='+IntToStr(i)));
  end;
  list.Free;
end;