Aktuelle Delphi-Versionen kannst du mit
SL.TrailingLineBreak := False
dazu bewegen.
Zitat:
When TrailingLineBreak property is True (default value) then Text property
will contain line break after last line. When it is False, then Text value
will not contain line break after last line. This also may be controlled
by soTrailingLineBreak option.