Este código es super lento

[strelok]

Hola, os dejo el código aquí abajo:

Resulta que demora y se me congela el formulario 1 o 2 segundos:

Como lo podemos optimizar?

Código Delphi [-]
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;