problemas con evento OnMousseDown

[[maeyanes]]

Hola...

Cuando publiques código fuente en Delphi, usa las etiquetas [delphi]:

[delphi]
begin
ProcedimientoAEjecutar;
Variable := 'hola mundo';
// ejemplo
end;
[/delphi]

lo que se mostrará en los foros así:

Código Delphi [-]
begin
  ProcedimientoAEjecutar;
  Variable := 'hola mundo';
  // ejemplo
end;

Saludos...

[maycampana]

OK, ahí va de nuevo

Código Delphi [-]
 
procedure Tdpersonales.ImageEnMView1DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=(source=DrawDBGrid1);
end;
Procedure Tdpersonales.DrawDBGrid1MousseDown(Sender: TObjects; Button: TMousseButton; Shift: TshiftState; X,Y : Integer);
begin
DrawDBGrid1.BeginDrag(false);
end;
procedure Tdpersonales.ImageEnMView1DragDrop(Sender, Source: TObject; X,Y: Integer);
begin
if source=DrawDBGrid1 then
begin
//aca todo el procedimiento que funciona bien
end;

Bueno, lo que no anda es el moussedown, si alguien tiene idea de que puede ser que no me habilita el mousse para el arrastre, bienvenida su ayuda.
No puedo encontrar la falla a pesar de que en otra version de la aplicación funciona perfectamente, me tiene mal. MIL GRACIAS