delphi冗餘清除?