TICQclient[смена ID Клиента]

[asp1k]

Не получается сменить ID клиента...

Вот реализовал кое-что решил поделиться.
что бы сделать ID клиента mchat замените в ICQClient где максикорвка под квип на:
Код:

procedure TICQClient.MaskIntoQIP(BuildNum : LongWord);
begin
 // CAPS := caps_aim_interoperate + caps_avatar +
     //     caps_aim_server_relay + caps_aim_send_file +
     //     caps_aim_is_icq + caps_utf8 +
     //     caps_file_transfer + caps_typing_notifications +
     //     caps_cl_qip2005 + caps_qip_protectmsg +
     //     caps_xtraz;
  InfoTime := BuildNum;
  ExtInfoTime := $7d0001ea;
  ExtStatusTime := $7d0001ea;
  UpdateInfoAndStatusTimes;
  UpdateCapabilities;
end;

и в проекте значение кнопки:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ICQClient1.MaskIntoQip($7d0001ea);
end;

чтобы сделать MiRanda все тоже тока замените все значения:::
Код:

$7d0001ea

на:
Код:

$FFFFFFFF

ВЕЗДЕ В ICQClient и в проекте

Дальше пишут

что бы сделать ID клиента mchat замените в ICQClient где максикорвка под квип на:
и зачем что-то менять?
Просто на кнопки вешай обработку смены клиента:
Цитировать

procedure TForm2.BitBtn7Click(Sender: TObject);
begin
ICQClient.MaskIntoMiranda($08000905);
end;

procedure TForm2.BitBtn8Click(Sender: TObject);
begin
ICQClient.MaskIntoJimm($08000600);
end;

procedure TForm2.BitBtn12Click(Sender: TObject);
begin
 ICQClient.MaskIntokopete($08000905);
end;

procedure TForm2.BitBtn9Click(Sender: TObject);
begin
ICQClient.MaskIntoqip_infium($09000905);
end;

procedure TForm2.BitBtn10Click(Sender: TObject);
begin
 ICQClient.MaskIntoqip_pda_symbian($04000205);
end;

procedure TForm2.BitBtn11Click(Sender: TObject);
begin
ICQClient.MaskIntoqip_pda_windows($04000205);
end;

Пишу по коду выше...
объявляю процедуру

procedure ICQClient1.MaskIntoQIP(BuildNum : LongWord);

Выдает ошибку

Что я не так делаю?

[asp1k]

Актуально.