Delphi/Pascal 代码片段