Виснет программа

[Пепел Феникса]

то программа бы и не скомпилировалась.

var T:TEdit

не создает компонент.
но этот код отлично скомпилируется и ппотом можно попробовать применить

T.Text:='';

что вылетит в AV.

[Delphi_ProGer]

Ну а когда появляеться эта ошибка? При каком действии? У меня Д7, скомплировать не могу.

[Mrsqler]

Ничего не пойму...Вроде везде всё объявлено.Все компоненты которые использую.

[Mrsqler]

Я компилировал в Delphi 2010.
Ошибка появляется когда жму на кнопку "отправить" у себя на форме.Т.е,когда идет сам запуск потока.

[Delphi_ProGer]

Unit2, строка 57.
Попробуйте сделать переменную глобальной, или "прикрутить" к класу TFromN...

P.S. Если я думаю правильно...

[Mrsqler]

Если объявить как глобальную,то не определяется TNewThread
Undeclared identifier: 'TNewThread'

Капец просто( Почему же ничего не работает

[Mrsqler]

Решил сделать отправку по ID
Авторизация идет нормально
Но сообщение отправляется только на один ID,а дальше прога виснет или ничего не делает,если повесить IDantifreez

for i:= StrToInt(IDNumber.Text) to StrToInt(toIDNumber.Text) do
 begin
LengthID:=Length(IDNumber.Text);//длина ID - необходим,чтобы спрасить hash
S:=form1.IdHTTP1.get('http://vk.com/im?sel='+IntToStr(i) );
hash:=Copy(S, Pos('IM.deleteDialog('+ IntToStr(i), S)+16+LengthID+3, 18);
form1.IdHTTP1.get('http://vk.com/im?sel='+IntToStr(i)+'&act=a_send&al=1&hash='+hash+'&media=&msg='+UrlEncode(ansitoutf8(Memo1.Text))+'&title=&to='+IntToStr(i));
form1.Memo1.Lines.Add('Сообщение отправленно юзеру'+IntToStr(i));
sleep(5000);
 end;
  try
  form1.IdHTTP1.Disconnect;
except
end;
end;

[Delphi_ProGer]

Ставь breakpoints. Смотри что получешь в ответ, так и узнаешь почему зависает и где.

[Mrsqler]

А как их ставить?

[Delphi_ProGer]

Сообщение от Mrsqler

А как их ставить?

У меня Д7, это F5.