diff --git a/ChatGptWizard.dproj b/ChatGptWizard.dproj
index 9c45fe9..96736ea 100644
--- a/ChatGptWizard.dproj
+++ b/ChatGptWizard.dproj
@@ -5,10 +5,11 @@
20.1
VCL
True
- Debug
+ Release
Win32
1
Package
+ ChatGptWizard
true
@@ -23,6 +24,11 @@
Base
true
+
+ true
+ Base
+ true
+
true
Base
@@ -77,6 +83,12 @@
true
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
+ Debug
+ true
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+
DEBUG;$(DCC_Define)
true
@@ -840,6 +852,9 @@
1
+
+ 1
+
@@ -1101,10 +1116,12 @@
+
True
False
+ False
False
diff --git a/UChatGptMain.pas b/UChatGptMain.pas
index 7f40299..0abfa7d 100644
--- a/UChatGptMain.pas
+++ b/UChatGptMain.pas
@@ -246,7 +246,7 @@ procedure TChatGptMenuWizard.ChatGPTDockableMenuClick(Sender: TObject);
LvSettingObj.ReadRegistry;
if LvSettingObj.ApiKey = '' then
begin
- if LvSettingObj.GetSetting.Trim.IsEmpty then
+ if (LvSettingObj.IsOffline) and (LvSettingObj.GetSetting.Trim.IsEmpty) then
Exit;
end;
@@ -455,7 +455,7 @@ procedure TChatGptMenuWizard.AskMenuClick(Sender: TObject);
if LvSettingObj.ApiKey = '' then
begin
- if LvSettingObj.GetSetting.Trim.IsEmpty then
+ if (LvSettingObj.IsOffline) and (LvSettingObj.GetSetting.Trim.IsEmpty) then
Exit;
end;