[Кодер]

Уважаемые, спецы и копипастеры, помогите решить проблему.

Проблема: даю запрос на получение данных с сервера и обрабатываю полученный ответ формата JSON

Код:

PostVK:=TStringList.Create;
    logVK:=IdHTTP1.Post('http://'+server+'?act=a_check&key='+key+'&ts='+ts+'&wait=25',postvk);

    js := TlkJSONobject.Create;
    js := TlkJSON.ParseText(logvk) as TlkJSONobject;
    ts:=IntToStr(js.getInt('ts'));
    jl:=js.Field['updates'] as TlkJSONlist;

В тот момент когда происходит этот ряд операторов, программа подвисает, что именно и мешает мне реализовать задумку.

В чем суть программы? Программа предназначена для обмена мгновенными сообщениями соц сети Вконтакте. Поэтому при проверке апдейтов (пользователь онлайн, оффлайн и тд) категорично нельзя чтобы программа подвисала.

Решение: ?