Pasar datos de un listbox a una funcion dll externa (Optimizacion)

[webmasterplc]

Buenas, tengo una dll que sirve de api a una aplicacion de un proveedor, estoy haciendo un envio masivo de datos, hasta ahora me funciona bien pero me gustaria las observaciones de optimizacion del mismo y asi puede servir de orientación a otros que tienen necesidades similares.
primero genero una consulta sql

Código Delphi [-]
with datos.Sqajuste do
          begin
            Close;
            ParamByName('categoria').AsString:=listafpago.LookupValue;
            Open;
          end;

luego recorro esa consulta haciendo el envio de datos

Código Delphi [-]
   if not datos.Sqajuste.IsEmpty then
       begin
        while not datos.Sqajuste.Eof do
        begin
          codigo:=datos.Sqajuste.FieldByName('CODIGO').AsString;   
          LocalSt:=Getdias(0,1,codigo,'','');
           if LocalST<>'' then
           PrepareListBox(LocalST);
           vp:=StrToCurr(ListBox1.Items[4]);
           vpd:=((vp/1.16)/StrToCurr(EdtTasa.Text));
           vp1:=CurrToStr(vp1);
           dias:='0'+';'+'0'+';'+vp1+';'+'0'+';'+'0'+';'+';'+'0'+';'+'0';
           Updatedias(1,1,codigo,'','',dias);
           datos.Sqajuste.Next;
        end;
        Application.MessageBox('Proceso Culminado ', 'Caption', MB_OK);

       end;

[mamcx]

Y que tan lento es el proceso? Ya hiciste mediciones y sabes cual es la parte mas costosa del proceso?

Para optimizar, hay que medir.