DsPack

Estou tentando utiliza um player de mpg pronto que utiliza o componentes do Dspack, aqueles que vem no exemplo. Quando eu der pausa no vídeo, eu preciso desenha um retangulo na área que o usuário selecionar..ele vai dar 4 pontos ou abrir uma janela em cima do video...algué sabe me dizer como eu faço isso...enquanto eu não abro vídeio nenhum..ele desenha..mas depois de abrir um vídeo, ele não desenha mais o retangulo..eu usei :


procedure TFormPlayWin.VideoWindowMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
X2 := X;
Y2 := Y;
VideoWindow.Canvas.Pen.color := clWhite;
VideoWindow.Canvas.Rectangle(X1,Y1, X2, Y2);
......

alguma idéia ?