Convert Listbox.TabWidth to screen pixels

Problem/Question/Abstract:

How to convert Listbox.TabWidth to screen pixels

Answer:

PixelsX := TabWidth * LoWord(GetDialogBaseUnits) div 4 * Canvas.TextWidth(' ') div 4