Не понятно, что имеется в виду под "нужен".
Вообще, твой код в принципе не правильный. Т.к. в TDateTime в дробной части хранится время в виде части целого дня, т.е. 0.5 - это полдень. Тогда, что бы получить праильное время надо делать как-то так:
Код:
result := frac(DateTime)*(24*60*60); // получили время в секундах
result := result * 1000000; // теперь перевели в кол-во микросекунд