Access violation at adress 9D58F945 in 'ChatGptWizard.bpl'. Read at address 00000000

[Fab8573]

Describe the bug After any question is asked to Chat GPT result appear but after an access violation is dropped. Only 2 settings has been changed :

• Access key
• Model = Gpt-4

[9D5BD945]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.FormatSource (Line 993, "UChatGptMain.pas" + 3) + $10
[9D5BD940]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.FormatSource (Line 993, "UChatGptMain.pas" + 3) + $B
[717F0D8E]{vcl290.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8990, "Vcl.Controls.pas" + 5) + $7
[9D5BD940]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.FormatSource (Line 993, "UChatGptMain.pas" + 3) + $B
[9D5BC85F]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.RunInlineQuestion (Line 741, "UChatGptMain.pas" + 13) + $5
[9D5BD155]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.DoAddComments (Line 856, "UChatGptMain.pas" + 3) + $18
[9D5BBDED]{ChatGptWizard.bpl} UChatGptMain.TEditNotifierHelper.OnChatGPTContextMenuFixedQuestionClick (Line 669, "UChatGptMain.pas" + 8) + $5
[7191DC92]{vcl290.bpl  } Vcl.Menus.TMenuItem.Click (Line 2629, "Vcl.Menus.pas" + 19) + $8
[7191F44B]{vcl290.bpl  } Vcl.Menus.TMenu.DispatchCommand (Line 3586, "Vcl.Menus.pas" + 5) + $2
[719206C6]{vcl290.bpl  } Vcl.Menus.TPopupList.WndProc (Line 4759, "Vcl.Menus.pas" + 4) + $E
[50FFFC14]{cxLibraryRS29.bpl} cxContainer.TcxPopupVisibleController.IsAnyVisible (Line 1217, "cxContainer.pas" + 1) + $3
[5100E792]{cxLibraryRS29.bpl} cxContainer.cxContainerGetMessageHook$qqriuiiri (Line 7870, "cxContainer.pas" + 2) + $5
[71920615]{vcl290.bpl  } Vcl.Menus.TPopupList.MainWndProc (Line 4734, "Vcl.Menus.pas" + 2) + $5
[6EB4477C]{rtl290.bpl  } System.Classes.StdWndProc (Line 19085, "System.Classes.pas" + 9) + $2
[71943927]{vcl290.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 13282, "Vcl.Forms.pas" + 23) + $1
[7194396A]{vcl290.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 13312, "Vcl.Forms.pas" + 1) + $4
[71943CA9]{vcl290.bpl  } Vcl.Forms.TApplication.Run (Line 13451, "Vcl.Forms.pas" + 27) + $3
[00CB8AD2]{bds.exe     } bds.bds + $DE

To Reproduce After any question is asked (From Popup Ai assistant(ChatGPTWizard)

Screenshots

Desktop (please complete the following information): Windows 10 in a VM Delphi 12.1 Enterprise 4k screen