Sobre ventana de Password

[silviodp]

Podrían decirme si éste código está bien o le falta algo, está asociado al botón que tengo en mi ventana de password, el cual tiene en la propiedad ModalResult el valor mrYes;

procedure TForm23.EntrarClick(Sender: TObject);
begin
  Modelodatos.TblLogin.Active:=True;
  If Modelodatos.TblLogin.Locate('Usuario',User.Text,[]) Then
  begin
    If ModeloDatos.TblLogin.FieldByName('Clave').AsString<>Pass.Text Then
       ShowMessage('Clave Incorrecta');
       Pass.SetFocus;
  end
  else
   ShowMessage('usuario inexistente');
   User.SetFocus;
end;

Gracias.

Silvio.-