diff --git a/src/ce_cdbcmd.pas b/src/ce_cdbcmd.pas
index 8519950a..1edc5cc5 100644
--- a/src/ce_cdbcmd.pas
+++ b/src/ce_cdbcmd.pas
@@ -26,7 +26,6 @@ type
     procedure btnStartClick(Sender: TObject);
     procedure btnStepClick(Sender: TObject);
     procedure btnStopClick(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
     procedure txtCdbCmdKeyPress(Sender: TObject; var Key: char);
   private
     fCdbProc: TAsyncProcess;
@@ -96,6 +95,7 @@ procedure TCECdbWidget.btnStartClick(Sender: TObject);
 var
   outname: string;
 begin
+  lstCdbOut.Clear;
   if fProject = nil then exit;
   outname := fProject.outputFilename;
   if not fileExists(outname) then exit;
@@ -139,15 +139,14 @@ begin
 end;
 
 procedure TCECdbWidget.btnStopClick(Sender: TObject);
+const
+  cmd = 'q'#13#10;
 begin
+  if fCdbProc <> nil then
+    fCdbProc.Input.Write(cmd[1], length(cmd));
   cdbFree;
 end;
 
-procedure TCECdbWidget.Button2Click(Sender: TObject);
-begin
-
-end;
-
 procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char);
 var
   inp: string;