Если спаммер или еще что, то вот процедура отправки следующему в memo по списку UIN'у
Цитата:
var i:integer;
begin
for i:=0 to memo1.lines.count-1 do
begin
[сюда можно вставить процедуру задержки];
icq.sendmessage(strtoint(memo1.lines[i]),'Нужное сообщение');
end;
end;
|