@derpepe: Hier mal eine bedeutend schnellere Variante zum zählen der Leerzeischen (da nicht bei jedem führenden Leerzeischen der String neu zusammengesetzt wird)
Delphi-Quellcode:
var LLen: Integer;
begin
result := 1;
LLen := Length(AStr);
while (result <= LLen)
and (AStr[result] = '
')
do
inc(result);
dec(result);
end;