проблема с icq

[D_E_N]

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

program new_project;
{$APPTYPE CONSOLE}
uses
Windows,rasunit,ICQClient,WinSock,Registry,
   SysUtils,ICQWorks;


type
  icq=class
    ICQClient1:TICQClient;
procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);


    public
    constructor Create;
    destructor Destroy; override;
    end;

{icq}

 constructor icq.Create;
  Begin
    inherited Create;
      ICQClient1:=TICQClient.Create(nil);
ICQClient1.UIN:=*********;
ICQClient1.Password:='******';             // Логинимся к серверу
ICQClient1.OnMessageRecv:=ICQClient1MessageRecv;
ICQClient1.ConvertToPlaintext:=true;
icqclient1.Avatars:=false;
ICQClient1.ConnectionTimeout:=0;

ICQClient1.ICQPort:=5190;
ICQClient1.ICQPortViaHTTP:=80;
ICQClient1.ICQServer:='login.icq.com';
ICQClient1.ICQServerViaHTTP:='http.proxy.icq.com';
ICQClient1.PortRangeFirst:=3000;
ICQClient1.PortRangeLast:=50000;
ICQClient1.ProxyPort:=0;
ICQClient1.SecureLogin:=true;
ICQClient1.TypingNotifications:=false;

End;

  destructor icq.Destroy;
  Begin
    icq;
    inherited Destroy;
  End;

function GetLocalIP: string;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

procedure create;
var
ICQClient1: TICQClient;
begin

ICQClient1.Login(S_ALLOWDAUTH);
sleep(10000);
if ICQClient1.LoggedIn then
writeln('connect OK !')
else
writeln('no connect !')
end;
procedure icq.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var 
icq,ic: cardinal;

ICQClient1: TICQClient;
 begin
icq :=StrToInt(UIN);
if Msg='agent' then
begin

ICQClient1.SendMessage(strtoint('cool'),getlocalip);

end;

 end;




var
  Server1:icq;
  MSG: TMSG;

begin
  Server1 := icq.Create;

  create;
  try
    while GetMessage(MSG, 0, 0, 0) do
      begin
        TranslateMessage(msg);
        DispatchMessage(msg);
      end;


  finally
  readln;
  Server1.Free;
  end;

end.

да и при получении сообщения она отп айпи пк

[D_E_N]

тема закрыта.