Thanks for the code. That's a nice solution for users of the Delphi VCL or the Lazarus LCL.