[darkamerico]

Gracias TOPX, aqui te doy detalles de mi plataforma de desarrollo:

Delphi: 10.1 Berlin
Data Access: UniDAC 6.2.8

La pantalla con el codigo que me suministraste:

https://s10.postimg.org/ceslputeh/scr.jpg

Pero no puedo interpretar el resultado que obtuve.

Aqui esta el codigo:

Código Delphi [-]
procedure TfrmAsistDocentes.lstHorarioActivoClick(Sender: TObject);
var
  horaIni, horaFin, horaActual: string;
  posPunto:integer;
  difMinutos:extended;
begin
  if lstHorarioActivo.ItemIndex<>-1 then
  begin
    posPunto:=pos('.',lstHorarioActivo.Items[lstHorarioActivo.ItemIndex]);
    idHorarioSelected:=StrToInt(Copy(lstHorarioActivo.Items[lstHorarioActivo.ItemIndex],0,posPunto-1));
    dm.q_HorarioXID.Close;
    dm.q_HorarioXID.Params[0].AsInteger:=idHorarioSelected;
    dm.q_HorarioXID.Open;

    if(length(dm.q_HorarioXID.FieldByName('hora_ini').AsString)>0)then
    begin
      if radEntrada.Checked then
        difMinutos:=Time() - dm.q_HorarioXID.FieldByName('hora_ini').AsDateTime;

      if radSalida.Checked then
        difMinutos:=Time() - dm.q_HorarioXID.FieldByName('hora_fin').AsDateTime;

      if difMinutos>=0 then
        lblDifMinutos.Font.Color:=clBlue
      else
        lblDifMinutos.Font.Color:=clRed;
      lblDifMinutos.Caption:=FormatDateTime('-hh:nn:ss.zzz', difMinutos) + ' min.';
      if difMinutos>5 then
        btnRegistrarAsistDoc.Enabled:=False
      else
        btnRegistrarAsistDoc.Enabled:=True;
    end;
  end;

end;

Te agradecería tu ayuda amigo.

Saludos