delphi xe 获取字符串长度（不足补位）

ShowMessage(Length('Hello').ToString.PadLeft(4,'0'));