procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
text:string;
begin
text:=edit1.Text;
For i:=0 to ListBox1.Items.Count-1 Do
  Begin
  ICQ[i].SendMessage(StrToInt(Text),'Программы на заказ!');
  If Edit1.Text=Edit2.Text Then Timer1.Enabled:=false;
  Text:=IntToStr(StrToInt(Text)+1);
  end;
end;
И рассылка не происходит!
В чем может быть проблема???