ActiveDelphi

[VDL]

Pessoal tudo bem?

Estou precisando de ajuda com a procedure abaixo

Com ela consigo o seguinte resultado por exemplo.

2 dia(s) e 05:34:30 – ok

Porém como fazer para obter o seguinte resultado >>>>>> 53:34:30



procedure TFRmodelofornos.Button1Click(Sender: TObject);
var
result_horas, data_ini, data_fin: TDateTime;
Dias: Integer;
begin
data_ini := DM2.cds1controleproducaodataentradasist.AsDateTime;;
data_fin := DM2.cds1controleproducaodatasaidasist.AsDateTime;
Dias := Trunc(data_fin - data_ini);
if data_ini > data_fin then
begin
result_horas := StrToDateTime('23:59:59') - data_ini + StrToDateTime('00:00:01') + data_fin;
end
else
result_horas := data_fin - data_ini;
ShowMessage(Format('%d dia(s) e %s ', [Dias, TimeToStr(result_horas)]));

end;

[VDL]

Ninguém ............................