delphi图片验证码

验证图片效果如下：

调用方法（控件请使用TImage）：
uses imgCheckPS;

//imgPic: TImage;不加LowerCase直接和ImgStr比较则验证时要区分大小写。

引用

    if not (LowerCase(trim(edtPic.Text))=LowerCase(ImgStr)) then CheckPass(imgPic);

其中ImgStr为图片中的字母数字组成的字符串（imgCheckPS中的全局变量），另外不要忘记在.dpr文件中初始化随机数种子（Randomize;），希望大家喜欢