Почему не работает цикл?????

[Marsik]

Здравствуйте! Я делаю спамер(исключительно в ознакомительных целях ) У Меня есть цикл:

procedure TForm1.Button4Click(Sender: TObject);
var
i,d: integer;
begin
d:= memo1.Lines.Count;
for i:=0 to d-1 do
begin
icqclient1.SendMessage(strtoint(memo1.Lines.Strings[i]), edit3.text);
sleep(3000);
end;

end;

Почему он работает,но неккоректно? По идее берется uin из первой строчки в memo, берется текст из едита и все это посылается . Потом ждем 3 секунды(что вполне достаточно для антибана) и снова берем uin только уже со второй строчки. Ну в общем надеюсь ясно чего Я хотел . Но почему же не работает код? Отправляется только первому uin`у и все! Дальше уже не идет!!! Зачем таГ?

[Карась]

А почемубы не расставить брекпоинты и поглядеть значения переменных?

ЗЫ: Спамерам не помогаем

[Marsik]

Карась Я не спамер. Осторожней со словами. Это чисто для образования. Break ставить толку нету, он по всему списку проходит вроде бы. Но почему то не выполняет задание


в общем проблема решилась следущим образом:

procedure TForm1.Button4Click(Sender: TObject);
var
ui: string;
ih: integer;
begin
for ih:=0 to memo1.Lines.Count-1 do
begin
ui:= memo1.Lines.Strings[ih];
icqclient1.SendMessage(strtoint(ui), edit3.Text);
sleep(3000);
end;



end;