begin

   btnForgotPass := TButton.Create(frmdbCoreLogin); //Change to label or edit text etc if using a label or text edit
   btnForgotPass.Left := 113;  // change these to position your button etc 
   btnForgotPass.Top := 170;  // These positions are for a label that appears under the picture image on the login form
   btnForgotPass.Width := 300;
   btnForgotPass.Height:= 15;
   btnForgotPass.Margins.Top :=10;
   btnForgotPass.Margins.Bottom := 10;
   btnForgotPass.Parent := frmdbCoreLogin;
   btnForgotPass.Wordwrap := true;
   btnForgotPass.Caption := 'Forgot Password';
   btnForgotPass.Visible := True;

   frmdbCoreLogin.Caption := 'Your form title here if you wish'  
   {code above has been tested}

   {code below HAS NOT been tested}
   btnForgotPass.OnClick := @ForgotPassWord; 

    

procedure ForGotPassWordOnClick
begin
     SQL code to retrieve and match either user name or email address. Or use a table grid and a search button to save writing SQL statements.
 
    
   frmdbCoreLogin.mniChangePassword.click; // this calls the built in password change form
 //however this form requires the current password to be entered. So code below is better
   frmForGotPassword.Show;
end;