TIdHTTP.Post로 질의 및 결과 받기

1. var  
2.   rbstr: RawByteString;   
3.   HTML: String;   
4.   MemoryStream: TMemoryStream;   
5.   StringStream: TStringStream;   
6.   slPost: TStringList;   
7. begin  
8.   slPost := TStringList.Create;   
9.   slPost.Add('student_info=박지훈');   
10.   slPost.Add('reserve_purpose=임프');   
11.   StringStream := TStringStream.Create(slPost.Text);   
12.   slPost.Free;   
13.   
14.   MemoryStream := TMemoryStream.Create;   
15.   IdHTTP1.Post('http://주소', StringStream, MemoryStream);   
16.   StringStream.Free;   
17.   
18.   rbstr := PAnsiChar(MemoryStream.Memory);   
19.   MemoryStream.Free;   
20.   
21.   if Pos('utf-8', IdHTTP1.Response.ContentType)=0 then  
22.     SetCodePage(rbstr, 949, false)   
23.   else  
24.     SetCodePage(rbstr, 65001, false);   
25.   Memo1.Lines.Text := rbstr;   
26. end;