Inputbox mit autmatischer Längenanpassung wie Messagebox

[v2afrank]

Hallo,
ich bin auf der Suche nach einer Inputboxfunktion für Delphi 2006 die die Breite des Fenster nicht abhängig von der durchschnittlichen Breite der einzelnen Buchstaben macht sondern abhängig von der Länge des eingegebenen Textes, wie es auch die Messagebox macht.
Ich brauche das für eine lange Frage an den User, die auch mehrere Zeilenumbrüche enthält. Eine Messagebox zeigt die Frage vernünftig an, Inputbox kürzt den Text aber sehr unglücklich.
Gibt es da was fertiges oder muss ich die Funktion selber schreiben ?