{ %fail }
Var
  MyVar : char;

Procedure MyProc;
Begin
  MyVar := ''; (* <-- two single-quotes *)
End;

Begin
End.