Código Delphi [-] until (xVal = '0');
until (xVal = '0');
Código Delphi [-] until (xVal = '');
until (xVal = '');