なら
w: WideString;
w := Edit1.Text;
Length(w);