44         Name: string[15];

    44         Name: string[15];

    45         Handler: TCommandHandler;

    45         Handler: TCommandHandler;

    46         Trusted, Rand: boolean;

    46         Trusted, Rand: boolean;

    47         end;

    47         end;

    48 

    48 

    51 

    50 

    52 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);

    51 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);

    53 begin

    52 begin

    54 RegisterVariable(Name, p, Trusted, false);

    53 RegisterVariable(Name, p, Trusted, false);

    55 end;

    54 end;