TDBGrid |Реакция на клавиатуру, мышь |

Здравствуйте. Помогите пожалуйста решить задачу. Что делает приведённый код. При одинарном клике левой кнопкой мыши на ячейку DBGrid-,а в эту ячейку подставляется компонент TComboBox. А как сделать чтобы то же самое происходило но только при двойном клике мышью?

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
      { Вместо стандартного InplaceEditor'а показываем ComboBox }
      ComboBox1.Left := Rect.Left + DBGrid.Left;
      ComboBox1.Top := Rect.Top + DBGrid.top;
      ComboBox1.Width := Rect.Right - Rect.Left + 2;
      ComboBox1.Visible := True;
    end;
end;