Delphi implementation screen brush program (source code)