Hier noch 'ne zweite Variante: EM_SETMARGINS
SendMessage(Edit.Handle, EM_SETMARGINS, EC_RIGHTMARGIN, MAKELONG(0, RightMargin));
Dabei ist "RightMargin" der rechte Rand in Pixeln. Der Aufruf muss nach jeder Änderung der Schriftart wiederholt werden, da die
VCL die Ränder dann zurücksetzt.