Блокирование при работе с TList.

[Riman]

Привет всем!
Проблема такая. Использую следующую конструкцию для создания больших списков:
PList_DR = ^AList_DR;
AList_DR = record
DATE : string[10];
count : longint;
...
end;
соответственно
MyList_DR : TList;
ARecord_DR : PList_DR;
В результате при любых действиях с таким списком (добавлении, поиску по списку и т.п.) полностью блокируется оконный интерфейс, функции таймера и т.д.
Help,please!

[НЕ_АЙС]

Для начала спиок нужно создать
MyList:=TList.Create;

А затем можно и добавлять элементы
New(ARecord_DR);
ARecord_DR.count:=1;
MyList.Add(ARecord_DR);

[Riman]

Ну Вы даете!
Естественно, все это сделано!
Я ведь пишу: "В результате при любых действиях с таким списком (добавлении, поиску по списку и т.п.) полностью блокируется оконный интерфейс, функции таймера и т.д."
Т.е. работа со списком ведется как надо - все работает, список меняется и т.п. Проблема в одном: БЛОКИРУЮТСЯ ДРУГИЕ ФУНКЦИИ ПРИЛОЖЕНИЯ (окна).
Знаете ответ?

[СТРАННИК]

Попробуй добавить Application.ProcessMessages

[Riman]

Не помогло...

[Shuraken]

Можно на весь код посмотреть?

[СТРАННИК]

Может не туда поставил?

[Riman]

А куда ставить?
...
Вот типичный пример листинга:
MyList_F10.First;
for nf1:=0 to (MyList_F10.Count-1) do begin
ARecord_F10 := MyList_F10.Items[nf1];
x := ARecord_F10^.DAT;
if CompareStr(ARecord_F10^.YY,'zsfvdfg dfg')<>0 then ...
...
end;
Причем от количества записей (MyList_F10.Count) - 1000 или 100000 суть не зависит.