[Neftali [Germán.Estévez]]

OK. ahora voy entendiendo.
Pueba cambiando esto a ver si es lo que necesitas....

Código Delphi [-]
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
==>>      Item.GroupID:=Contador-1;

==>>      // item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

Contador (-1), porque ya lo habías incrementado y no añadir la hora, porque ya va en el grupo.

Queda tal que así: