TMrim Опции

[Unconnected]

Mrim - компонент для работы с протоколом mail Agent. Написал его Алексей Панов, и приложение тоже написал, наподобие mail-агент. Подробнее здесь: http://andml.org.ru/opensource.htm . Так вот, проект с открытым исходным кодом. Так вот, на сайте можно скачать исходник (Delphi) всего приложения. А сам компонент, как я понял, это Mrim.pas. Но при его компиляции мало того, что нужны сторонние компоненты, служащие для графического отображения элементов, так ещё и ошибки возникают.. (Undeclared identifier, например). Вот возник вопрос, может я совсем не то компилирую? [Delphi 2007]

Сообщение отредактировано: Unconnected - 27.03.2009 19:44

[Unconnected]

Код

Procedure tmailclient.add_sms_contact(var nick,phone:string);
var
  Pack:TMRIMPacket;
  Data:Pointer;
  add:string;
begin
  MMP_Pack(@Pack, FSeq, MRIM_CS_ADD_CONTACT, FSocket.Port, FSocket.IP);
  MMP_addUL(@Pack,data,CONTACT_FLAG_SMS);
  MMP_addUL(@Pack,data,103);
  MMP_addLPS(@Pack,data,'phone');
  mmp_addlps(@Pack,data,nick);
  mmp_addlps(@Pack,data,phone);
  MMP_addUL(@Pack,data,MA_SPACE);
  MMP_SendPack(FSocket.Socket, @Pack, Data);
  FSeq:= FSeq + 1;
  FreeMem(Data);
end;

Получилось вот так, вроде как надо,но не работает..