Работа с ICQclient

[DeTLeR]

В чем ошибка?

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
i:Integer;
baza: array[1..50] of PChar;
LogFile: TextFile;
ICQ: Cardinal;
begin
baza[1] :='111';
baza[2] :='123456789';
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ' Íàïèñàë: ' + Msg);
ICQClient1.SendMessage(icq, memo2.text);
  if Msg=i then
    begin
      icqclient1.SendMessage(icq,'Вы хотите купить этой уйн? "Да" "Нет" ' + baza[i]);
      end;
end;

[Человек_Борща]

Не знаю, а есть ошибка?

[BDA]

Из бросившегося в глаза:
Msg: String
i: Integer
(несоответствие типов, но компилятор должен подсказать, где ошибки )

[DeTLeR]

как исправить?

[Человек_Борща]

Привести или строку к числу или чисто в строку и сравнить. В люой книге написано про приведение типов, и уж темболее про преобразование.

[DeTLeR]

исправил но сообщения не приходит когда выбираем ID