{
Report on problem.
}
procedure Problem(msg:String);
begin
 if iAnd(DebugFlags,dfTrouble)<>0 then
 if Length(msg)>0 then Writeln(DevName+' ! '+msg);
end;
