php ado query sort,如何使adoquery排序正常工作

我只是一个adoquery，当我尝试

adoquery1.sort := 'Cost';

它不会对查询中的项目进行排序。

{Gets starting cards and put them into the correct rows}

//***************************************************************************

procedure TFGame.GetStartingCards;

//***************************************************************************

const

ManaTypes : array [0..3] of string = ('Lava','Water','Dark','Nature');

var

i: integer;

z:integer;

Cards: TObjectList;

begin

Cards := TObjectList.Create(false);

z:=0;

{add all tcards (Desgin ) to this list in order Lava,water,dark,nature }

cards.Add(cardLava1);

cards.Add(cardlava2);

cards.Add(cardlava3);

for i := 0 to Length(ManaTypes) - 1 do

begin

with adoquery1 do

begin

close;

sql.Clear;

sql.Add('SELECT TOP 4 * FROM Cards WHERE Color = "'+ManaTypes[i]+'" ORDER BY Rnd(-(1000*ID)*Time())');

open;

end;

{return the result of everything for giving mana type.. }

if adoquery1.RecordCount = 0 then

Showmessage('Error no cards in db');

adoquery1.Sort := 'Cost';

adoquery1.First;

while not adoquery1.Eof do

begin

cards[z].Ccost := adoquery1.Fieldbyname('Cost').AsInteger;

//based on color change background

cards[z].Background.LoadFromFile(format('%s\pics\%s.png',[maindir,cards[z].Ccolor]));

adoquery1.Next;

cards[z].repaint;

z:=z+1;

end;

end;

cards.Free;

end;