Problema com o Calculo do Tempo

Ola,

Estou com um problema no mediaplayer que estou fazendo, e esse problema esta no calculo do tempo. O video que estou testando tem o tempo de 00h:02m:28s no meu mediaplayer que estou constriuino só aparece o segundo.

Function HHMMSS(i:integer):string;
var
  HH,MM,SS: Integer;
begin
  SS:= (i div 1000);
  MM:= (SS div 60);
  HH:= (MM div 60);
  Result:= FormatFloat('00',HH)+':'+ FormatFloat('00',MM)+':'+ FormatFloat('00',SS);
end;

Essa é a função que estou usando, dentro de um bitbtn eu chamo a função:

Edit1.Text := CalculaTempo(mediaplayer1.length);

Aguem saberia me dizer onde posso ta errando?

Obrigado!