유닛화일에 데이터형과 function이며 다 선언해 놓고 web module에서 이 유닛화일에 선언되어 있는 함수를 이용하여 결과물을 얻으려 하는데 포인터에 문제가 있는지 자꾸 에러만 납니다.

이유인 즉 메모리 억세스 문제인데 web module에서 그 자료형을 포인터로 하여 getmem이라는 함수로 메모리를 지정하여 처리 하였는데 메모리의 주소에 억세스가 불가능하다면서 문제를 알려오는데요 문제점이 무엇인지 궁금합니다.



var

WebModule1: TWebModule1;

ur_InsComp : ^r_InsComp; // 레코드



implementation



{$R *.DFM}



procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

try



GetMem(ur_InsComp, SizeOf(r_InsComp));



with ur_InsComp^ do

begin

ur_InsComp.ps_ItemKind:='302'; // 함수일련번호

ur_InsComp.ps_BirthDay:='19700518'; // 생년월일(YYYYMMDD)

ur_InsComp.ps_Sex:='1'; // 성별

ur_InsComp.pi_Age:=30; // 나이

end;