Transformar hora em integer

como assim cara
de um exemplo

até

transforme a data para string depois para integer

DateTimeToStr // TDateTime em string de data e hora

DateToStr //TDateTime em string de data, de acordo com as
do Painel de Controle

Depois transforme de string para integer como vc quer

StrToInt

Funciona acho que seja isso que vc quer

var
hora:String

begin

hora := TimeToStr (time)