Du könntest insofern eine Anpassung vornehmen, als dass Du bei der Zuweisung des Hints an den Label-Text die sLinebreaks entfernst und die Aufteilung der Zeilen ansonsten der Routine überlässt.
Ändere einfach die Zeile
Delphi-Quellcode:
Lab.text := Application.hint; // alt
// in
Lab.text := ReplaceStr (Application.hint, sLineBreak, ' '); // neu
Dafür musst Du auch die
Unit "System.StrUtils" noch einbinden.