通过用户定义的过程在下一个表单中设置标题属性时引发异常

Question

有点问题。 我有一个像这样的例外 “项目1提出了异常类'外部：SIGSEGV'。 在第3251行的文件'.include \ control.inc'中： GetTextMethod := TMethod(@Self.GetTextBuf);

代码，触发异常：

procedure load_translation(language: string);
var 
 iit: integer;
begin  
 Form1.Caption:='Form 1';
 Form2.Caption:='Form 2';   //as well as Unit2.Form2.Caption:='Form 2';
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  language:='en';
  load_translation(language);
end; `

我有第二个表单，已经设计过（不是在运行时），所以Exception raised when setting Text property of TEdit in custom component (Lazarus)在我的情况下不适用。

调试输出：

<-stack-list-arguments 1 0 0> ^done,stack-args=[frame={level="0",args=[{name="this",value="<error reading variable>"},{name="result",value="0x0"}]}] (gdb) <-stack-list-locals 1> ^done,locals=[{name="LEN",value="5987780"},{name="GETTEXTMETHOD",value="{CODE = 0xc, DATA = 0x3676c0}"},{name="GETTEXT",value="0x25cf9d8"},{name="RESULT",value="0x25cf9d8"}] (gdb)