初学者有关问题，求教！老手新手都来看看呀

菜鸟问题，求教！老手新手都来看看呀
procedure   Tlogin.OKButtonClick(Sender:   TObject);
var
    str1,str2:   String;
begin
    if   (nameComboBox.Text   =   ' ')   then
        Showmessage( '请输入用户ID！ ')
    else
    begin
        str2   :=   'select   psw   from   login   where   uid   =   '   +   nameComboBox.Text   +   ' ';
        ADODataSet1.Close;
        ADODataSet1.CommandText   :=   str2;
        ADODataSet1.Open;
        str1   :=     VarToStrDef(ADODataSet1[ 'psw '], '* ');//这样赋值又错吗？？？  
        if   (pswEdit.Text   <>   str1)   then                         //这样比较不对吗？？？
            begin
                Showmessage( '密码错误！   '+   str1)   ;//这里STR1明明显示的是正确密码
                                                                                    //为什么上面比较老是说不正确
            end
        else
            begin
                Showmessage( '输入正确！ ');
                loged   :=   true;
                login.Close;
                main.Show;
            end;
    end;
    PswEdit.Text   :=   ' ';
end;

[解决办法]
这样试试看

......
if UpperCase(pswEdit.Text) <> UpperCase(str1) then

......