{
Report on details.
}
procedure Details(msg:String);
begin
 if iAnd(DebugFlags,dfDetails)<>0 then
 if Length(msg)>0 then Writeln(DevName+' * '+msg);
end;
