Versuch doch mal mit "MeasureLines" Dein Glück.
http://docwiki.embarcadero.com/Libra...s.MeasureLines
In TLineMetricInfo erhältst Du die Anzahl der Zeilen zurück, die Dein Text beanspruchen wird. Die mal Höhe einer Textzeile multipliziert gibt Dir dann die Y-Position, wo Du die nächste Textzeile ausgeben kannst.