要求一﹕
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select Top 3 * From 資料表名稱 '); 
  ADOQuery1.SQL.Add('Order By 欄位名 DESC');
  ADQuery1.Open;
end;    要求二﹕
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * From 資料表名稱 Order By 欄位名 DESC');
  ADOQuery2.Open;
  if ADOQuery2.Locate('欄位名', 2, []) then
    ShowMessage('數值2的排名為第﹕'+IntToStr(ADOQuery2.RecNo))
  else
    ShowMessage('未發現欄位值為2的資料錄');
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================