добавил режим изменения

uCreateChat.pas

@@ -28,11 +28,13 @@ type
     btnCreateWebChat: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnCreateWebChatClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
     function GetColorFromColorPanel(aColor: TAlphaColor): string;
   public
     { Public declarations }
+    isEdit:boolean;
   end;
 
 var
@@ -144,9 +146,18 @@ procedure TfCreateChat.FormCreate(Sender: TObject);
   end;
 
 begin
+isEdit:=false;
   LoadChatOBSSettings;
   LoadFontList;
 
 end;
 
+procedure TfCreateChat.FormShow(Sender: TObject);
+begin
+if isEdit then
+btnCreateWebChat.Text:='Èçìåíèòü ÷àò'
+else
+btnCreateWebChat.Text:='Ñîçäàòü ÷àò';
+end;
+
 end.