Majlumbo, thanks a lot for this great code, however I am
getting errors on the indicated places
SL := TStringList.Create;
try
Result := '';
SL.Text := ReplaceText(Value, ' ', #13#10); {Replace.text}
for I := 0 to SL.Count - 1 do
Result := Result + copy(SL[I][0])...