TDateTime TUserDM::GetCurrentServerDateTime(void)
{
bool B_Ret = false;
AnsiString TempStr;

QueryCreateUser->Close();
QueryCreateUser->SQL->Clear();

TempStr.sprintf("select CURRENT_TIMESTAMP CurrentServerDateTime\n");

QueryCreateUser->SQL->Add(TempStr);

while( !B_Ret )
{
try
{
B_Ret= true;
QueryCreateUser->Active = B_Ret;
// QueryCreateUser->ExecSQL();
}
catch(EDBEngineError &ex)
{
// ErrMessage = ex.Message;
B_Ret= false;
QueryCreateUser->Active = B_Ret;
}
}
return QueryCreateUser->FieldByName("CurrentServerDateTime")->AsDateTime;
}