画的图形在点中移动时的问题

Question

画的图形在点中移动时，就是一个重画的过程，其中移到哪里阴影就跟到哪里，只有确定在那里画才能把阴影去掉
这个问题怎么解决

Answer 1

public
  BX,BY,EX,EY:  Integer;
  Trace: Boolean;MouseDown(X,Y)
{
  BX := X;
  BY := Y;
  EX := X;
  EY := Y;
  Trace := True;
}
MouseMove(X,Y)
{
  if Trace then
  begin
    擦去(BX, BY, EX, EY)图形;
    EX := X;
    EX := Y;
    画(BX, BY, EX, EY)图形;
  end
}
MouseUP(X, Y)
{
  Trace := False;
}

Answer 2

第一个问题，听说如果使用lookup的字段可以是dbgrid自动出现下拉框，我没有试过，也不知道具体的做法，以前的帖子里有。
第二个问题：怎么触发的ApplicationEvents1ActionExecute？