if (length(edit4.text)>5 and length(edit4.text)=0) then
    begin
这句话好像有问题,执行报错Incompatible types是什么问题啊?