Delphi não sabe fazer conta?

//Api do windows --->> Permite a sincronização .. Ao fim do processo podemos
//medir qual o tempo gasto na operação
  t := GetTickCount;

pessoa entra com o tempo encontrado para o programa calcular

var
 Valor:TTime; 
begin
Valor:=encodeTime(23,59,59,59);
showmessage(FloatToStr(valor));end; //ou
showmessage(timeToStr(valor));end;

var
 Tempo:TTime;
begin
 Tempo:=EncodeTime(23,59,59,59);
 showmessage(FloatToStr(tempo));
 showmessage(TimeToStr(tempo));
 showmessage(DateTimeToStr(tempo));
end;

Tempo2 - TempoMeio

var
 horario:TTime;
begin
 horario:=encodeTime(12,10,20,30);
 showmessage(FloatTostr(horario));
end

1) Multiplicamos  0,507176273148148  por 24*60*60*1000 

2) obtemos o numero = 43820029,9999 

3) Truncamos e arredondamos -->>> Ficando assim: 43820030

4)calcuo da hora
   hora:= 43820030 div 60*60*1000 = 12
   resto:=43820030 mod 60*60*1000 = 620030

5)calculo do minuto
   minuto = 620030 div 60*1000 = 10
   resto   = 620030 mod 60*1000 = 20030

6) calculo do segundo
   segundo = 20030 div 1000 = 20
   resto:= 20030 mod 1000 

7)calculo do msegundo
   msecundo =resto = 30

procedure TForm1.Button1Click(Sender: TObject);
var
 t1,t2:TTime;
 distancia:Real;
 velocidade:Real;
 diferenca:TTime;
 h,m,s,ms:Word;
 numero:Real;
begin
//neste exemplo , fiz um intervalo de tempoigual a 0,1segundo = 100ms
 t1:=Encodetime(01,10,20,000); //tempo de saida
 t2:=encodetime(01,10,20,100); // T2 ... tempo de chegada
 distancia:=0.5;
 diferenca:=T2-t1; //é a diferença que  carro leva para percorrer
 decodeTime(diferenca,h,m,s,ms);
//represental  o decimal da hora
numero:=(h*60*60*1000 + m*60*1000 + s*1000 + ms);
//não dividir agora por 1000*60*60; senão nunero ficaria muito pequeno 
 velocidade:=(distancia/numero)*3600;
 showmessage(floattostr(velocidade));
end;

Conclusão...O erro  não é o que  função encodetime retorna , mas sim  como  utilizalar o valor de retorno desta função

function TransformaHoraEmPontoFlutuante(texto:string):Real;
var
 h,mm,ss,ms:Word;
 fator:Integer;
begin
 fator:=36000000;
 h:=strtoint(copy(texto,1,2));
 mm:=strtoint(copy(texto,3,2));
 ss:=strtoint(copy(texto,5,2));
 ms:=strtoint(copy(texto,7,4));
 result:=((h*fator)+(mm*(fator/60))+(ss*(fator/(60*60)))+ms)/(24*fator);
end;

//Função abiaxo , funciona com se fosse um decodetima
function TransformarPontoFlutuanteTexto(pontoflutuante:Real;var h,mm,ss,ms:Word):String;
var
//h,mm,ss,ms:Word;
resto:Integer;
fator:Integer;
fracao:Integer;
begin
 fator:=864000000;
 fracao:=Round(pontoflutuante*fator);
 fator:=Fator div 24;
 h:=Fracao div fator;
 resto:=Fracao mod fator;
 fator:=fator div 60;
 mm:=Resto div fator;
 resto:= Resto mod fator;
 fator:=fator div 60;
 ss:= resto div fator;
 ms:= resto mod fator;
 result:=inttostr(h)+´:´+inttostr(mm)+´:´+inttostr(ss)+´:´+inttostr(ms);
//melhorar por exemplo esta formatação
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 t1,t2:real;
 distancia:Real;
 velocidade:Real;
 diferenca:real;
 h,mm,ss,ms:Word;
 numero:Real;
begin
//neste exemplo , fiz um intervalo de tempoigual a 0,0001 segundo = 0,1ms
 t1:=TransformaHoraEmPontoFlutuante(´0110200000´); //tempo de saida
 t2:=TransformaHoraEmPontoFlutuante(´0110200001´); // T2 ... tempo de chegada
 distancia:=0.5;
 diferenca:=T2-t1; //é a diferença que  carro leva para percorrer
 TransformarPontoFlutuanteTexto(diferenca,h,mm,ss,ms);
numero:=(h*60*60*10000 + mm*60*10000 + ss*10000 + ms);
//não dividir agora por 10000*60*60; senão nunero ficaria muito pequeno
 velocidade:=(distancia/numero)*36000;
 showmessage(floattostr(velocidade));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 h,mm,ss,ms:Word;
begin
edit1.text:=
TransformarPontoFlutuanteTexto(TransformaHoraEmPontoFlutuante(´1210203040´),h,mm,ss,ms);
end;