Zitat von
hoika:
Ich hatte mal sowas wie Twips im Kopf.
Korrekt - 20 Twips = 1 Point. Probiere mal den Faktor 20 (VB.Width = 20 * Delphi.Width).
Nachtrag: Korrekterweise solltest du so rechnen:
VBControl.Width := MulDiv(PixelWidth, 20 * Screen.PixelsPerInch, 72);