NMHTTP1의 POST방식을 사용하여 프로그램을 한것인데.. 진짜로 잘안되요

밑에 소스 보시고요.. 답좀 달아주세요..

부탁드립니다.



procedure TFrmLogin.SpeedButton1Click(Sender: TObject);
var  param : string;
begin
   SHeader := TMemo.Create(SHeader);
   SBody   := TMemo.Create(SBody);
   SSession:= TMemo.Create(SSession);

   FrmMain.NMHTTP1.Host := SIP;
   FrmMain.NMHTTP1.Port := StrToInt(SPort);

   param := 'fromVB=1&id=' + Trim(EdtID.Text) + '&pass=' + Trim(EdtPass.Text);
   TxMessage := '';
   TxMessage := TxMessage + '210.222.65.4/ztsms/result/ResultLogin.jsp HTTP/1.1' + CRLF;
   TxMessage := TxMessage + 'Connection: Keep-Alive' + CRLF;
   TxMessage := TxMessage + 'Content-type: application/x-www-form-urlencoded' + CRLF ;
   TxMessage := TxMessage + 'Content-length: ' + IntToStr(Length(param)) ;//+ CRLF + CRLF;
   // TxMessage = TxMessage + param + CRLF   + CRLF
   FrmMain.NMHTTP1.Post(TxMessage ,Param  );
   SBody.Text := FrmMain.NMHTTP1.Body;

end;