External:SIGSEGV错误

下面的代码是哪里有问题?我是newbie,刚刚接触delphi而已..
unit MemoryClass; 
 
 
{$mode objfpc}{$H+} 
 
 
interface 
 
 
uses 
  Classes, SysUtils,Windows,jwatlhelp32; 
  //TlHelp32=jwatlhelp32.pas 
  type CMemory=class(TObject) 
private 
  { private declarations } 
  ProcessId:DWORD; 
public 
  procedure FindWindow(clsname:pwidechar;windowname:pwidechar); 
  Constructor Create(); 
  { public declarations } 
end; 
implementation 
 
 
Constructor CMemory.Create(); 
begin 
  ProcessId:=0; 
end; 
 
 
procedure CMemory.FindWindow(clsname:pwidechar;windowname:pwidechar); 
var temphwnd:hwnd; 
begin 
  temphwnd:=FindWindowW(clsname,windowname); 
  if(temphwnd<>0) then 
  begin 
  GetWindowThreadProcessID(temphwnd,@ProcessId); 
  end 
  else 
  ProcessId:=0;//调用后提示在这里出错... 
end;  
 
 
 
调用.. 
var 
CMem1:CMemory; 
begin 
CMem1:=CMem1.Create(); 
CMem1.FindWindow('Kernel Class',nil); 
end; 

顶起来看看，这个问题已经很多天了...