Так работает нормально, ошибок не выдаёт но вряд ли правильно считает к.т у меня минуты и сек с минусом получались.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= Ostatoc('12:11:10','13:12:15');
end;
Используй стандартные ф-нц для сравнения времени или переводи время всё в секунды потом отнимай добавляй и обратно в формат времени переводи.