Delphi repeat Until 运用

很少用到 repeat until，但有时候，她真的很实用 ...