[TOPX]

Saludos,

Yo lo haría así:

Código Delphi [-]
var
  difMinutos: Extended;

...

Código Delphi [-]
  if not dm.q_HorarioXIDhora_ini.IsNull then
  begin
    difMinutos := Time() - dm.q_HorarioXIDhora_ini.AsDateTime; // TO-DO: Cambiar Time() por consulta a la bd trayendo CURRENT_TIMESTAMP.

    if difMinutos >= 0 then
    begin
      lblDifMinutos.Font.Color := clBlue;
    end
    else
    begin
      lblDifMinutos.Font.Color := clRed;
    end;

    lblDifMinutos.Caption := FormatDateTime('-hh:nn:ss.zzz', difMinutos);

    btnRegistrarAsistDoc.Enabled := (difMinutos > 5);
  end;

Pero como no sé qué versión de Delphi, ni qué componentes de acceso a base datos usa, pues puedo estar muy equivocado.

De todas maneras, espero que le sirva para guiarse.
-