[Electronic_Arts]

Я так понял Application.ProcessMessages чередует выполнение кода? или как?

Создал дополнительный поток добавил туда

Код:

          for i3 := 0 to Len do                            //оставляем только дату и название
             begin
               c_pos:=Pos('\', s1);
               Delete(s1, 1, c_pos);
               s2:=s1;
               len:=length(s1);
               c_pos:=Pos('_', s1);
               Delete(s1, c_pos, len);
               label3.Caption:=s1;
               Delete(s2, 1, c_pos);
               c_pos:=pos('.', s2);
               Delete(s2, c_pos, len);
               year:=copy(s2, 1, 4);
               month:=copy(s2, 5, 2);
               day:=copy(s2, 7, len);
               label4.Caption:=year+'/'+month+'/'+day;
               label6.Caption:=inttostr(StringGrid1.RowCount);
              end;