procedure TForm1.Button1Click(Sender: TObject);
var
 cSend : String;
begin
 cSend := 'POST http://ya.ru HTTP/2.0' + #13#10;
 cSend := cSend + 'Referer: http://wwp.somesite.ru' + #13#10;
 cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + #13#10;
 cSend := cSend + 'Connection: Keep-Alive' + #13#10;
 cSend := cSend + 'Host: wwp.ya.ru.com:80' + #13#10;
 cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + #13#10;
 cSend := cSend + 'Content-length:9' + #13#10;
 cSend := cSend + 'from=test';
 clientsocket1.Active := True;
 clientsocket1.Socket.SendText(csend);
end;