[edufg]

He podido realizar el trabajo he realizado el trabajo gracias por vuestra ayuda. para recoger los datos de los 31 Spinedit mediante un bucle:

Código Delphi [-]
 if not((Q_Busqueda.Bof) and (Q_Busqueda.Eof)) then 
       while not (Q_Busqueda.Eof) do begin
            if Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))<>nil then
            TSpinEdit(Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))).Value:=Q_Busqueda.Fields[1].AsInteger;
            Q_Busqueda.Next;

gracias.