Danke !
Ich habe diesen Link hier gefunden:
http://www.swissdelphicenter.ch/torr...ode.php?id=709
An MyInputQuery übergebe ich zusätzlich die Button Caption´s.
An GetAveCharSize übergebe ich zusätzlich die die Länge von APrompt. Diese setze ich dann length(APrompt) + 15 oder mindestens auf 50.