procedure SplitRectCB(var Bounds: TRect; var Arrow: TRect);
Zerlegt das Rechteck Bounds in die Teilrechtecke, die Elemente
eines einzeiligen Listenfeldes einnehmen. In Arrow wird das
Rechteck für den nach unten weisenden Pfeil eingetragen.
Bounds wird auf den für die Eingabezeile verbleibenden Platz
verkleinert.