login sayfası

[cagatay]

programa giriş için bir tane bitbutton ve iki tane edit var(kullanıcı adı ve şifre)
normalde kullanıcı adı ve şifre için kodları yazdım çalışıyor fakat istediğim diyelimki kullanıcı adı cagatay olsun ve şifre 12345 olsun ben bu şekildeyken yazdım çalışıyor fakat ben kullanıcı benim şifre ve kullanıcı adımı büyük harfle girdiğindede kabul etsin istiyorum küçük büyük harfe bakmadan sisteme girsin istiyorum.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if(edit1.Text='cagatay') and (edit2.Text='12345')then
begin
form1.Hide;
form2.show;
end;

if(edit1.Text='cagatay') and (edit2.Text<>'12345')then
begin
application.MessageBox('Wrong Password','Warning',MB_OK or MB_ICONERROR);
end;

if(edit1.Text<>'cagatay') and (edit2.Text='12345')then
begin
application.MessageBox('Wrong User Name','Warning',MB_OK or MB_ICONERROR)
end;

if(edit1.Text<>'cagatay') and (edit2.Text<>'12345')then
begin
application.MessageBox('Wrong User Name and Password','Warning',MB_OK or MB_ICONERROR)
end;
end;

end.

işte sorun kullanıcı adını büyük harfle girdiğimde yani ÇAĞATAY ve şifreyide 12345 girdiğimde de sisteme girmesini istiyorum yardımlarınızı bekliyorum.

[cagatay]

Konu çözüldü Çalışan kod :

procedure TForm1.BitBtn1Click(Sender: TObject);Const
strName = 'CAGATAY';
strPass = '12345';
Var
iYanlis : Integer;
begin
iYanlis := 0;
if( AnsiUpperCase( Edit1.Text ) <> strName ) then iYanlis := iYanlis + 1;
if( AnsiUpperCase( Edit2.Text ) <> strPass ) then iYanlis := iYanlis + 2;
case iYanlis of
0 : begin
form1.Hide;
form2.show;
end;
1 : application.MessageBox('Wrong User Name','Warning',MB_OK or MB_ICONERROR);
2 : application.MessageBox('Wrong Password','Warning',MB_OK or MB_ICONERROR);
3 : application.MessageBox('Wrong User Name and Password','Warning',MB_OK or MB_ICONERROR);
end;
end;

[notname]

if (lowercase(edit1.text)='cagatay') and (edit2.text='12345') then
loginoldu
else
loginolmadı;

büyükde yazsa küçükde yazsa kod otomatik olarak küçük yapacağı için genede girecektir.