Utilizando las herramientas provistas por gluglu podemos comparar las fechas y horas como si fueran cadenas. De esta forma yo propongo lo siguiente (que a mi parecer es infalible).
Código Delphi
[-]
var Fecha1, Fecha2: TDateTime;
Tiempo1, Tiempo2: String;
begin
Fecha1 := StrToDateTime('23/08/1974 15:15:00');
Fecha2 := StrToDateTime('23/08/1974 15:14:00');
Tiempo1 := FormatDateTime('yyyy/mm/dd hh:nn:ss', Fecha1);
Tiempo2 := FormatDateTime('yyyy/mm/dd hh:nn:ss', Fecha2);
ShowMessage('Tiempo1 = ' + Tiempo1 + ' y Tiempo2 = ' + Tiempo2);
if Tiempo1 = Tiempo2 then
ShowMessage('Son los mismos tiempos.')
else
if Tiempo1 > Tiempo2 then
ShowMessage('El primer tiempo es mayor.')
else
ShowMessage('El segundo tiempo es mayor.');
Suerte y espero que te sirva.