Rotina TrataErro (urgente!!!)

Olá!

Estou desenvolvendo um programa de ponto eletrônico e no entanto, encontrei um erro que não consigo resolver.
Tenho um formulário com um Edit para inserir nome e outro Edit para inserir senha.
Se a senha e o nome forem corretos, em um Label, será mostrada a data e horário igual ao sistema.
O erro está na parte em que ao aparecer a data e horario no Label, aparece uma MessageBox para digitar a senha.
Essa MessageBox, só deveria aparecer qdo a senha estivesse errada.
Como faço para tirar essa MessageBox e colocar só qdo a senha estiver errada?
Á rotina está abaixo:

procedure TForm1.BitBtn1Click(Sender: TObject);

var
Ano,Mes,Dia:Word;
Hora,Min,Sec,MSec:Word;

Begin
Edit2.Enabled:= True;

If (Edit1.text = ´karen´) and (Edit2.Text = ´kaka´) then
begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,Hora,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(Hora) + ´:´ +
IntToStr(Min) + ´:´ + IntToStr(Sec)));

end
Else
Begin
Edit1.SetFocus;
End;

Case Edit1.Text = ´karen´ of False:
MessageBox (Form1.Handle, ´Nome não encontrado. Certifique-se de que o nome tenha sido digitado corretamente.´, ´Atenção!!!´, 0+64);
End;

Case Edit1.Text = ´karen´ of False:
Edit2.Enabled:= False;
End;

Case Edit1.Text = ´karen´ of True:
Edit2.SetFocus;
End;

Case Edit1.Text = ´karen´ of True:
Edit2.Enabled:= True;
End;

End;