{$X+}
var
 mystr : array[0..3] of char;

Begin
  if mystr = #0#0#0#0 then
  Begin
  end;
end.