работа с командами ICQ

[DeTLeR]

все привет... подскажите пжл ребят в чем тут ошибка как правильно записать? чтобы кода приходи команда 'opencd' в аськи на программу которая тоже подключена с уйна выполнял команду открыть сиди ром

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
if ListBox1.Items.Add('opencd') then
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end
else
ShowMessage('ошибка');
end;
end.

[eoln]

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
  if Msg='opencd' then
  //if UIN='421277094' then //эта строчка чтобы только я открывать мог
    mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

[DeTLeR]

чет не срабатывает... все команды работаю но сиди никак не открывает

[Valio]

чтобы кода приходи команда 'opencd' в аськи на программу которая тоже подключена с уйна выполнял команду открыть сиди ром

Мне кажется или это классика жанра?