Soltar y arrastrar no aceptar

[emeritos]

Hola dilferos,

Estoy haciendo un cuadro de un campeonato y necesito por ejemplo en semifinales pasar un ganador a la final, es de un TDBedit a otro. Lo he realizado asi:

Código Delphi [-]
procedure Tfrmcombates.DBEdit3Click(Sender: TObject);
begin
     DBEdit3.BeginDrag(true);
end;
procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
     Accept := Source IS TDBEdit
end;

procedure Tfrmcombates.DBEdit21DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
    // lo que sea;
end;

Esto me funciona. Pero mi pregunta es la siguiente. ¿ Como tengo otro TDBedit en la final del cuadro de semifinales de abajo, no quiero aceptar si el arrastar y soltar viene desde arriba y viceversa? No se si me he explicado bien.
Lo he intentado asi: Pero no me funciona: vamos que me sale error en el NOT

Código Delphi [-]
procedure Tfrmcombates.DBEdit3Click(Sender: TObject);
begin
     DBEdit3.BeginDrag(true);
end;

procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
    If MQcuaparti2['numero'] = 1
       Then Accept := Source IS TDBEdit
       Else Accept := Source NOT IS TDBEdit;
end;

procedure Tfrmcombates.DBEdit21DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
    // lo que sea;    
end;

Muchas gracias.