{ %fail } unit tb0222; {$mode delphi} interface procedure test; implementation procedure test; overload; begin end; end.