{
Report on success.
}
procedure Success(msg:String);
begin
 if iAnd(DebugFlags,dfSuccess)<>0 then
 if Length(msg)>0 then Writeln(DevName+' : '+msg);
end;
