Можно ли как-нибудь убыстрить процесс загрузки данных в Excel (для таблицы 50x50 получается достаточно медленно):

for i:=0 to res_dat.ColCount — 1 do
for j:=0 to res_dat.RowCount — 1 do
begin
progress.Position := progress.Position + 1;
Worksheet.Cells[j+1, i+1] := res_dat.Cells[i, j];
end;