Drag&Drop из TStringGrid

[Sergey2]

Нужно перетаскивать данные из стрингрида, но как только dragmode ставлю в dmAutomatic, то перестают выбираться ячейки стрингридовские, т.е. любое нажатие мышкой компонент расценивает как попытку перетащить данные.... Как это побороть?

[Kotofff]

Вот есть код из букваря - коменты я думаю помогут понять ....

implementation
{$R *.DFM}
var
  SourceCol, SourceRow: integer;// переменные нужные ...

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Устанавливаем режим перетаскивания для управлениям им с помощью нашего кода }
  SG.DragMode := dmManual; 
  { Как-нить заполняем грид  }
  SG.Cells[2, 2] := 'A';
  SG.Cells[3, 2] := 'B';
  SG.Cells[4, 2] := 'C';
end;

procedure TForm1.SGMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: integer);
begin
  { переводим мышиные координаты в координаты грида }
  SG.MouseToCell(X, Y, SourceCol, SourceRow);
  { начинаем "тянуть" с точностью 4 пикселя }
  if (SourceCol > 0) and (SourceRow > 0) then SG.BeginDrag(False, 4);
end;

procedure TForm1.SGDragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean);
var
  CurrentCol, CurrentRow: integer;
begin
  SG.MouseToCell(X, Y, CurrentCol, CurrentRow); // convert mouse coord.
  { когда уже тянем - проверяем туда ли вообще тянем ? И если что - запрещаем тянуть ... } 
  Accept := (Sender = Source) and (CurrentCol > 0) and (CurrentRow > 0);
end;

procedure TForm1.SGDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DestCol, DestRow: Integer;
begin
  SG.MouseToCell(X, Y, DestCol, DestRow); // опять перевод координат
  { перемещаем ячейку }
  SG.Cells[DestCol, DestRow] := SG.Cells[SourceCol, SourceRow];
  if (SourceCol <> DestCol) or (SourceRow <> DestRow) then
    SG.Cells[SourceCol, SourceRow] := '';
end;

[Sergey2]

А с DragMode := dmAutomatic; работать не будет? Просто в интернете есть примеры где это все в автомате, но у меня не работает