delphi编写QQ客户端 我现在应该怎么做

我现在应该怎么做
以下是用qq协议写的一个登录QQ的例子,现在怎么不行了,,是因为QQ公司换
'http://tqq.tencent.com:8000'
还是因为什么,,
真的是没弄过这些东西,,
有那位知道的好心人指点指点,,
在线等^^^
现在应该要怎么做才可以^^^^^procedure TSendMsg.Execute;
var
poststr,rstr,tt:String;
Count,i:Integer;
begin
tt:=Copy(inttostr(GetTickCount()),1,5);
//登陆
//poststr:='VER=1.1&CMD=Login&SEQ='+tt+'&UIN='+UserQQ+'&PS='+UserPws+'&M5=1&LC=9326B87B234E7235';
//rstr:=PostMsg('http://tqq.tencent.com:8000',AnsiToUtf8(rstr),2000);
Count:=QQNumberList.Count;
FProgress.MinValue:=0;
FProgress.MaxValue:=Count;
Msg:=Msg+'(本消息由《QQ消息群发精灵》发送！下载地址：http://www.codesky.net/showhtml/4049.htm)';
Msg:=stringreplace(Msg,#13#10,'',[rfReplaceAll]);
if Count>0 then begin
  for i:=0 to Count-1 do begin
    tt:=Copy(inttostr(GetTickCount()),1,5);
    poststr:='VER=1.1&CMD=CLTMSG&SEQ='+tt+'&UIN='+UserQQ+'&UN='+QQNumberList[i]+'&MG='+Msg;
    if pos(QQNumberList[i],SkipQQ)<1 then   //
      rstr:=PostMsg('http://tqq.tencent.com:8000',AnsiToUtf8(poststr),2000);
    SetProgressPos(i+1);
    sleep(1000);
  end;
end;
end;
procedure TfrmMain.Button1Click(Sender: TObject);
var
QQNumber,QQPws,Msg:String;
rstr,tt:string;
poststr:String;
QQNumberList:TStringList;
i:integer;
begin
QQNumber:=edtQQNumber.Text;
QQPws:=edtQQPws.Text;
if (QQNumber='') or (QQPws='') then begin
  showmessage('发送者QQ号或密码不能为空！');
  exit;
end;
Button1.Enabled:=false;
QQPws:=RivestStr(QQPws);
tt:=Copy(inttostr(GetTickCount()),1,5);
poststr:='VER=1.1&CMD=Login&SEQ='+tt+'&UIN='+QQNumber+'&PS='+QQPws+'&M5=1&LC=9326B87B234E7235';
rstr:=PostWebPage('http://tqq.tencent.com:8000',AnsiToUtf8(poststr),5000);
if pos('LI=300',Utf8ToAnsi(rstr))>1 then begin
  ReadData;
  QQNumberList:=split(GetQQList(QQNumber,QQPws),',');
  cnt:=QQNumberList.Count;
  Msg:=meoQQMsg.Lines.Text;
  Timer1.Enabled:=true;
  SendMsg:=TSendMsg.Create(QQNumberList,SkipQQ,Msg,QQNumber,QQPws,ProgressBar1);
end
else begin
  showmessage('QQ号与密码不符！请重新输入！');
  Button1.Enabled:=true;
end;end;