パスカル - このランタイムエラー（216）の原因は何ですか？

Question

SafteyDepositBox.SetNewCodeを実行すると、いつでもruntime error 216と表示されます。どのようなアイデアがこれを引き起こしていますか？ これはエラーです：あなたはちょうど私がパスカルを覚えて作られたOMG

ランタイムエラー216 $ 00401EFC
$ 00401EFC
$ 0040153D

$ 00401596
$ 00406E31

program Boxy; 
{$MODE OBJFPC} 
{$M+} 
type 
SDB = class 
    private 
    State : string; 
    Code : string; 
    public 
    Constructor Create(); 
    procedure SetNewCode(newcode:string); 
    function Valid(s:string):boolean; 
end; 

constructor SDB.Create(); 
begin 
State := 'Open-NoCode'; 
Code := ''; 
end; 

procedure SDB.SetNewCode(newcode:string); 
begin 
Code := newcode; 
writeln(Code); 
end; 

function SDB.Valid(s:string):boolean; 
var 
IsValid : boolean; 
begin 
If (length(s) = 4) then 
    IsValid := true 
else 
    IsValid := false; 
Valid := IsValid; 
end; 

var 
SafetyDepositBox : SDB; 
begin 
SafetyDepositBox.Create(); 
SafetyDepositBox.SetNewCode('r2d2');// runtime error 216 here 
end. 

Answer 1

で！

SafetyDepositBox := SDB.Create();