diff --git a/src/ce_procinput.lfm b/src/ce_procinput.lfm
index 258d5deb..6e8fc3ff 100644
--- a/src/ce_procinput.lfm
+++ b/src/ce_procinput.lfm
@@ -38,6 +38,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
         BevelOuter = bvNone
         ClientHeight = 30
         ClientWidth = 605
+        Enabled = False
         TabOrder = 1
         object btnSend: TButton
           Left = 530
diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index 82717cec..b8de0441 100644
--- a/src/ce_procinput.pas
+++ b/src/ce_procinput.pas
@@ -80,7 +80,11 @@ begin
   // TODO-cfeature: process list, imply that each TCESynMemo must have its own runnable TProcess
   // currently they share the CEMainForm.fRunProc variable.
   if fProc <> nil then
+  begin
     fProc.Terminate(1);
+    Panel1.Enabled:=false;
+  end
+  else Panel1.Enabled:=true;
 
   txtExeName.Caption := 'no process';
   fProc := nil;