Hola.
Podrías hacer la siguiente prueba, anulando la línea del condicional.:
Código Delphi
[-]
while not (frmTablas.tblSucursal.Eof) do
begin
nuevoItem.id := frmTablas.tblSucursal.FieldValues['cod_sucursal'] ;
nuevoItem.Descripcion:=frmTablas.tblSucursal.FieldValues['descripcion_sucursal'];
cmbSucursal.Items.AddObject(nuevoItem.Descripcion, nuevoItem);
frmTablas.tblSucursal.Next;
end;
Si los datos de la tabla están correctos deberían cargarse todos los items en el combo e indicaría que no carga más items por no cumplirse la condición en ValidarSucursales.
De repetirse el problema, habría que revisar los valores de la tabla.
Saludos.