안녕하세요
WebBrowser의 Text 내용을  Richedit에 추가하려는데 EOutOfResouce 가 발생하는데 왜 그런지 모르겠네요
다른 페이지는 이상이 없는데 이 페이지만 이런 애러가 나네요...
다른 페이지 test해보실려면 아래에서 ID다음 숫자만 적당히 바꾸면 됩니다.
http://www.cineseoul.com/movies/cinedata.html?cinemaID=3297
하루 종일 이리 저리 해봐두 답이 안나오네요...ㅜㅜ
아시는분 답변좀 주시면 감사하겠습니다.
그럼 즐거운 한주 되시기를~~

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
   Button1: TButton;
   RichEdit1: TRichEdit;
   RichEdit2: TRichEdit;
   Button2: TButton;
   WebBrowser1: TWebBrowser;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;
flags, targetframename, postdata, headers, MyDocument : olevariant;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.cineseoul.com/movies/cinedata.html?cinemaID=3297', flags, targetframename, postdata, headers);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

MyDocument := WebBrowser1.Document;
Richedit1.Lines.Add(MyDocument.Body.InnerText);
end;

end.