VAR

InputData,OUTSTRING : STRING

BEGIN



DATA := PCHAR(InputData) ;



HDCsocket:= LoadLibrary('Csocket.DLL');



if HDCsocket <> 0 then

begin

@CDCsocket:= GetProcAddress(HDCsocket,'CicsClientSocket');

if @CDCsocket <> Nil then

RC_CDCsocket:= CDCsocket(DATA , self);

IF RC_CDCsocket.R_BOOLEAN = TRUE THEN BEGIN

SHOWMESSAGE('OK');

OUTSTRING := STRING(DATA) =====>1

OUTSTRING := DATA;=============>2

END ;

ELSE BEGIN

SHOWMESSAGE('ERROR') ;

END ;



FreeLibrary(HDCsocket);

end;

end;



SHOWMESSAGE의 OK까지 보이고는

1번을 하던 2번을 하던 Access violation이 나옵니다.

어떻게 하면 되는지 도와주세요.