компонент TICQClient и Indy

[Chelovek1]

Имееться код

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
s : string;
i : integer;
begin
LogBot.sListBox1.Items.Add(UIN + ': ' + Msg);
LogBot.sListBox1.Items.SaveToFile('log.txt');
if msg='anek' then
i := Random(Memo1.Lines.Count-1);
s := IdHTTP1.Get('http://anekdotov.net/anekdot/random/'+memo1.Lines.strings[i]+'.html?');
Icqclient1.SendMessage(StrToInt(UIN), Copy(s, pos('''>', s) + 2, pos('<INPUT type=image src=', s) - pos('''>', s) -2));

кто может исправить ошибку?
И еще чтобы рандомно цифры он брал не из Memo, а просто чтобы диапазон был от 1 до 100.
Просто только начал изучать делфи

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

какую ошибку исправить?
а что брать число делаем IntToStr(Random(100)+1)

[Chelovek1]

Все разобрался спасибо

[Chelovek1]

хм опять вопрос

if msg='anek' then
s := IdHTTP1.Get('http://anekdotov.net/anekdot/random/'+IntToStr(Random(100)+1)+'.html?');
Icqclient1.SendMessage(StrToInt(UIN), Copy(s, pos('''>', s) + 2, pos('<INPUT type=image src=', s) - pos('''>', s) -2));

ответ

Гинеколог после труднейшего рабочего дня в автобусе увидела, как старенькая бабушка что-то веселое рассказывает соседке и улыбается во весь свой беззубый рот. Бедолага не выдерживает и просит:
<BR>- Бабушка, не улыбайтесь, пожалуйста! Вы мне напоминаете о работе...
<BR>

как убрать теги <br> и <BR> из сообщения?

[Mad_Cat]

While pos('<BR>',s) <>0 do
delete(s,pos('<BR>',s),4);

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

удобнее посмотреть на StringReplace, заменять на #10#13