Send Message over ICQ

uses ExtCtrls, ScktComp

var
  Form1: TForm1;
  csend: string;
  
//

procedure TForm1.Button1Click(Sender: TObject);
begin
  cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
  cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
  cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10);
  cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
  cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
  cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
  cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
  cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
                    chr(13) + chr(10) + chr(13) + chr(10);

  cSend := cSend + 'from=' + Edit1.Text +
                   ' &fromemail=' + Edit2.Text +
                   ' &fromicq:110206786' +
                   ' &body=' + Memo1.Text +
                   ' &to=' + Edit3.Text +
                   ' &Send=';

  ClientSocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Socket.SendText(csend);
  ClientSocket1.Active := False;
end;