Código Delphi [-] NumX := Length(StringReplace(Memo1.Text, ' ', '', [rfReplaceAll])) - 2*Memo1.Lines.Count;
NumX := Length(StringReplace(Memo1.Text, ' ', '', [rfReplaceAll])) - 2*Memo1.Lines.Count;