remove unused method

Author: pashagolub

forms/fmmain.pas

@@ -80,7 +80,6 @@   TfmMain = class(TForm)
     procedure acTaskPostExecute(Sender: TObject);
     procedure acTaskRefreshExecute(Sender: TObject);
     procedure acTaskToolbarUpdate(Sender: TObject);
-    procedure btnCancelClick(Sender: TObject);
     procedure acConnectClick(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure gridChainsEditingDone(Sender: TObject);
@@ -209,11 +208,6 @@ procedure TfmMain.UpdateSortIndication(ACol: TColumn);
   FLastColumn := ACol;
 end;
 
-procedure TfmMain.btnCancelClick(Sender: TObject);
-begin
-  dmPgEngine.qryChains.Cancel;
-end;
-
 procedure TfmMain.acChainToolbarUpdate(Sender: TObject);
 var
   CanModify: boolean;