if (Length(Trim(CheckString))=0) then〜

だがこれだけでは全角スペース対応していない。
よって事前にStringReplaceなどで全角スペースを取り除く