Pascal - Что вызывает эту ошибку времени выполнения (216)?

Question

Всякий раз, когда я бегу SafteyDepositBox.SetNewCode, я получаю runtime error 216. Любая идея, что вызывает это? Это ошибка:

Ошибка выполнения 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

OMG вы просто заставили меня вспомнить Паскаля!

Это, как вы вызываете конструктор объекта:

SafetyDepositBox := SDB.Create();