这样使用为什么会出错

Question

procedure TForm1.Button1Click(Sender: TObject);begin
        Edit1.Text:=IntToStr(Form1.Handle);
        SendMessage(Form1.Handle,1024+100,0,0); //执行到这句会出错，错误信息为:Project project1.exeraised exception class exteranl 'sigsegv'
end;       请问各位前辈这是什么原因，谢谢！

Answer 1

贴出来的代码没有错，
把 sigsegv 代码贴出来看看。

Answer 2

谢谢，是响应函数有问题。这一句
Edit1.Text:=string(pShare^.WindowText);
pShare的结构是这样定义的pShare:PMemoryShare
type
    TMemoryShare=record
       {Sender:DWORD;
       MessageID:DWORD;}
       Data:array[1..2] of DWORD;
       MouseInfoStruct:TMOUSEHOOKSTRUCT;
       WindowText:array[0..1024] of char;
    end;         
PMemoryShare =^TMemoryShare; 
请问什么地方错了呢？谢谢！