{ %fail }
Var
  MyVar : char;

Procedure MyProc;
Begin
  MyVar := char('');
End;

Begin
End.