Grabar datos desde ListView a Tabla Firebird.

[Camilo]

Bucanero mil gracias por tu respuesta ademas de oportuna muy acertada.
Con eso resolví el punto tres marcado con turquesa. Tu aporte si soluciono ese punto. Pero quedo sin poder hacer los otros dos (1, 2).
Resumiendo mi tema: en los puntos 1 y 2 siguen vivas las dudas y el punto 3 quedo superado gracias al aporte de Bucanero.
Mil gracias.

[bucanero]

por lo que creo que intentas hacer es saber que registros están seleccionados en el listView, para lo cual intenta sustituyendo tu linea del punto 2

Código Delphi [-]
   if (ListView.Selected = nil) then

por esta otra

Código Delphi [-]
if ( ListView.Items[i].Selected ) then

En cuanto a lo de convertir una cadena en numero lo que tienes funciona siempre que la cadena sea realmente un numero, en caso contrario te dará un error, para evitar el error, inténtalo así:

Código Delphi [-]
   if not TryStrToInt(ListView.Items.Item[0].SubItems[0], Repetir) then
     MessageDlg('El valor no es correcto', mtError, [mbOK], 0)
   else if ( ListView.Items[i].Selected ) then begin
        with IBQGrabar do
            begin
               SQL.Text := 'INSERT INTO TREGISTROS'
               + '(PROCEDIMIENTO, CODIGO_PROCEDIMIENTO, VALOR)'
               + 'VALUES(:PROCEDIMIENTO, :CODIGO_PROCEDIMIENTO, :VALOR)';
               IBQGrabar .ParamByName('PROCEDIMIENTO').AsString:= ListView.Items.Item[0].SubItems[1];
               IBQGrabar .ParamByName('CODIGO_PROCEDIMIENTO').AsInteger:= ListView.Items.Item[0].SubItems[2];
               IBQGrabar .ParamByName('VALOR').AsFloat:= StrToFloatDef(ListView.Items.Item[0].SubItems[3], 0);
               For j := 1 to Repetir do
               ExecSQL;
            end;
   end;

[Camilo]

Gracias nuevamente.
te cuento que en una primera prueba no funciono. Pero me imagino que tengo que sobre esa base hacer algunos ajustes. Claro que el codigo propuesto esta bien me corresponde es mirar y acomodar bien los subitems y demás aspectos prácticos a ver si lo puedo cuadrar.

Mil gracias y de resolverlo claro que pondré como nos quedo para alguien que siga el hilo.