unit deverrors;
interface
uses system;
var

deverrors_ihaveError:Boolean;(*'Ошибка найдена'*)
deverrors_errorsText:String;(*'Текст ошибки'*)

implementation
begin

   deverrors_ihaveError:=false;
   deverrors_errorsText:='';
   
end.
