Отправить сообщение на ICQ

Обменяю 7-значный UIN ICQ на два 6-значных.

{ 
  You need 3 TEdits, 1 TMemo und 1 TClientSocket. 
  Set the  TClientsocket's Port to 80 and the Host to wwp.mirabilis.com. 
} 

var 
  Form1: TForm1; 
  csend: string; 

implementation 

{$R *.dfm} 

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 853 • TDictionary Custom Sort 6 832 • Fast Watermark Sources 6 614 • 3D Designer 9 578 • Sik Screen Capture 6 957 • Patch Maker 7 400 • Айболит (remote control) 7 347 • ListBox Drag & Drop 6 206 • Доска для игры Реверси 98 255 • Графические эффекты 7 522 • Рисование по маске 6 804 • Перетаскивание изображений 5 656 • Canvas Drawing 6 038 • Рисование Луны 5 832 • Поворот изображения 5 281 • Рисование стержней 3 870 • Paint on Shape 3 024 • Генератор кроссвордов 3 983 • Головоломка Paletto 3 157 • Теорема Монжа об окружностях 3 998 • Пазл Numbrix 2 637 • Заборы и коммивояжеры 3 453 • Игра HIP 2 367 • Игра Go (Го) 2 285 • Симулятор лифта 2 680 • Программа укладки плитки 2 244 • Генератор лабиринта 2 801 • Проверка числового ввода 2 403 • HEX View 2 746 • Физический маятник 2 435