Procedure TFrmlogin. BtLoginClick (Sender: TObject);
Var
MD5PW1 MD5PW2: String;
The begin
AUserID:=EUseName. Text;
If EUseName. Text & lt;> "' Then
The Begin
MD5PW1:=GetUserMD5PW (EUseName. Text);

If MD5PW1 & lt;> 'A' Then
The Begin
MD5PW2:=MD5Print (MD5String (EUseName. Text + ePassWord. Text));
If MD5PW1 & lt;> MD5PW2 Then
The Begin
AUserID:=';
Incount:=incount + 1;
If incount & lt;=2 then
The Begin
MessageBox (self. Handle,
PChar (' first '+ vartostr (incount) +' time input errors, please input again! '), 'warm prompt... '
Mb_ok + mb_iconstop);
EPassWord. SetFocus;
End
The else
The Begin
MessageBox (self) Handle, PChar (' you have three consecutive input error, the system is terminated, please contact the administrator! '), 'warm prompt... '
Mb_ok + mb_iconstop);
If incount & gt;=3 then Close;
End;
End
The Else
The Begin
AUserID:=EUseName. Text;
The Close;
End;
End;
End;
end;