En la Unit
DateUtils, hay una función llamada
SecondsBetween, que te da la diferencia en segundos entre dos fechas.
Creo que irá perfecta para lo que se necesita.
Código Delphi
[-]
hora1 := '20-15-03';
hora2 := '22-18-09';
hora1 := AnsiReplaceText(hora1, '-', ':');
hora2 := AnsiReplaceText(hora2, '-', ':');
seg := SecondsBetween(StrToTime(hora2), StrToTime(hora1));
Por supuesto, en la misma unit también están las funciones, DaysBetween, HourBetween, MilliseconsBetween,...