uses
   erroru,uunit1;

begin
   if testvar<>1234567 then
     do_error(1000);
end.