strSql := 'select sTamp from Tbl_IC_Borrow_User_Info order by sTamp';
  Data.ADOQuery.Close;
  Data.ADOQuery.SQL.Clear;
  Data.ADOQuery.SQL.Add(strSql);
  Data.ADOQuery.Active := True;
  Data.ADOQuery.First;
  while not Data.ADOQuery.Eof do
  begin
    //strTemp := '';
    //if Data.
   // vTest := VarArrayCreate([1,8],varVariant);
    //iTemp := Data.ADOQuery.Fields[0].Value;
    //iTemp :=vTest;
    dTest := Data.ADOQuery.FindField('sTamp').AsDateTime;
    //iByte[1] := vTest[1];
    //iByte[2] := vTest[2];
    //iByte[3] := vTest[3];
    //iByte[4] := vTest[4];
    //iByte[5] := vTest[5];
    //ShowMessage(IntToStr(iTemp));
    Data.ADOQuery.Next;