Drag and Drop entre DBGrids

[[gluglu]]

Por qué hacerlo fácil se si puede hacer complicado, no es verdad ?

Todo mi comentario anterior se puede olvidar y resumir el asunto en esto :

Código Delphi [-]
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  DBGrid1.BeginDrag(False,10);
end;