[BrunoBsso]

Creo que existe un método para eso, pero yo no me lo acuerdo.
Podrías hacerlo vos mismo

Código Delphi [-]
function TimeToInt(T:TTime):Integer;
var
  S1,S2:String;
  I:Integer;
begin
  S1:=TimeToStr(T);
  S2:='';
  I:=1;
  while (I<=Length(S1)) do begin
    if (S1[i]<>':') then
      S2:=S2+S1[i];
    Inc(I);
  end;
  Result:=StrToInt(S2);
end;

Saludos.