Зачем тебе столько условий? Это плохой стиль кодинга. Уж лучше создай массив или TStringList объект, а ответы грузи из текстового файла, и будет у тебя бот гибким и удобным в настройке ответов
Code
var Answers: TStringList;
R: Integer;
...
Randomize;
Answers:=TStringList.Create;
Answers.LoadFromFile('answers.txt');
R:=Random(30) + 1;
...
ICQClient1.SendMessage(UIN, Answers[R]); // например так
Вот по такому примеру можно.Добавлено (26.01.2012, 00:40)
---------------------------------------------
Только ты значения R выбирай по количеству строк в Answers (это свойство Count; чтоб обратиться к какой-нибудь строке в объекте класса TStringList, нужно написать вызов как к элементу массива: Answers[0] - это и есть самая первая строка, если строки вообще есть в объекте)
