소스는 다음과 같고 환경 del2010 입니다. 어떻게 수정해야할지 좀 부탁합니다


var
  rbstr: RawByteString;
  HTML: String;
  MemoryStream: TMemoryStream;
  StringStream: TStringStream;
  slPost: TStringList;
begin
  slPost := TStringList.Create;
  slPost.Add('student_info=박지훈');
  slPost.Add('reserve_purpose=임프');
  StringStream := TStringStream.Create(slPost.Text);
  slPost.Free;

  MemoryStream := TMemoryStream.Create;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP1.Post('http://주소', StringStream, MemoryStream);
  StringStream.Free;
  SetLength(rbstr, MemoryStream.Size);
  StrLCopy(PAnsiChar(rbstr), PAnsiChar(MemoryStream.Memory), MemoryStream.Size);   <-------- 요부부에서 access violation에러가 발생합니다
  MemoryStream.Free;

  if Pos('utf-8', IdHTTP1.Response.ContentType)=0 then
    SetCodePage(rbstr, 949, false)
  else
    SetCodePage(rbstr, 65001, false);
  Memo1.Lines.Text := rbstr;
end;