谁来帮我找找错误？笑脸符后就是机器编译出错处。(100分)

procedure TMainform.FormActivate(Sender: TObject);
var
reg:tregistry;
num:integer;
begin
num:=1;
reg:=tregistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
IF REG.KeyExists('/test') then
begin
if reg.OpenKey('/test',true) then
begin
num:=reg.ReadInteger('runnum');
end
else
form1.ShowModal;
end
[]else
form1.ShowModal;
finally
reg.CloseKey;
reg.Free;
end;
if (num>500) then
begin
showmessage('用户已过使用期限，请拨打电话 03106194188 寻求帮助');
close;
end;
end;
这是提示信息
project project1.exe raised exception class eaccessviolation with message'access violation at address
0054d5d8 in module 'project1.exe'. read of address 00000000'.process stopped. use step or run to continue.

form1是自动建立的窗体吗？

试了一下你的代码，没有问题。
唯一可能的问题是 Form1 在 ShowModal 之前是否已经创建。