Este código es super lento

[Young]

Me parece que 1 o 2 segundos no es mucho dependiendo de la cantidad de registros, lo que si molesta en estas situaciones es que se congele el formulario, por lo tanto te sugiero que lo hagas en una tareas separada:

Código Delphi [-]
uses System.Threading;

.
.

TTask.Run(
    procedure
    begin
with DBGridProveedores.DataSource do
  begin
    DataSet.First;
    SetLength(provSelecc, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    SetLength(provSeleccNames, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    while not DataSet.Eof do
    begin
      if DBGridProveedores.SelectedRows.Find(DataSet.Bookmark, inx) then  //Si la fila fue seleccioanda
      begin
         provSelecc[i] := DBGridProveedores.Columns[0].Field.AsString;  //Guardo en el array
         provSeleccNames[i] := DBGridProveedores.Columns[1].Field.AsString;  //Guardo en el array
         Inc(i);
      end;
      DataSet.Next;
    end;
    //   ShowMessage(IntToStr(length(provSelecc)));  //Muestro cantidad de filas seleccionadas
  end;
end);

¿Por otro lado porque haces la operacion sobre el dbgrid y no sobre el dataset?

Saludos.

[strelok]

Muchas gracias a ambos, sin embargo, parece que le erré, no es esa la función que causa que el formulario se congele entre 1 y 2 segundos.
Es cuando llamo al procedimiento relacionarProv
¿Puedo hacer lo siguiente?

         TTask.Run(
          procedure
          begin
              relacionarProv;
          end);

[mamcx]

Y que hace relacionarProv?

[strelok]

Código Delphi [-]
var
inicio, fin : Integer;
begin
    inicio := 1;      //Empiezo de la 1, porque 0 es el título de columna
    fin := vlRelacionarProveedores.RowCount; //Cantidad de filas
    SetLength(self.provBDprovHojaCal, fin, 2); //Seteo alto y ancho del array
    while(inicio < fin) and (vlRelacionarProveedores.Cells[1, inicio] <> '')  do
    begin
        self.provBDprovHojaCal[inicio-1, 0] := vlRelacionarProveedores.Cells[0, inicio]; //Guardo columna 1
        self.provBDprovHojaCal[inicio-1, 1] := extraerIDProveedor(vlRelacionarProveedores.Cells[1, inicio]); //Guardo columna 2  ID
        Inc(inicio);
    end;
    SetLength(self.provBDprovHojaCal, inicio-1, 2); //Ajustar el array a los elementos insertados
end;

Resulta que fin = 2, porque solo estoy relacionando 2 mmmm...

[ecfisa]

Hola.

Para detectar el motivo de la demora, también sería necesario ver el código de la función extraerIDProveedor (así como también conocer con cuantos registros estas trabajando).

Saludos

[Casimiro Notevi]

Y también sería necesario saber qué estás haciendo y qué quieres conseguir.

[[AgustinOrtu]]

El problema es que meter en hilos en segundo plano codigo que actualiza la interfaz de usuario te va a traer problemas de sincronizacion, ya que solo el hilo principal (es decir, en donde corre la Vcl) se pueden actualizar los controles.

Para poder usar hilos debes separar completamente los datos de tu interfaz grafica, de esta manera podes procesarlos en segundo plano y luego actualizar cuando este procesamiento termina