Fórum Problema com o evento DragOver #152811

Estou trabalhando com varios shape´s, e estou com necessidade de fazer chamada ao evento dragOver apartir de um botao, para mover um shape de cada vez.

procedure TForm1.Shape1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Shape1.Left := 72;
end;

procedure TForm1.Shape2DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Shape2.Left := 96;
end;

neste momento estou passando o valor direto dentro de cada evento dragover.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Shape1DragOver(Shape1,Form1,72,32,dsDragEnter,true);
Shape2DragOver(Shape1,Form1,112,32,dsDragEnter,true);
end;

E neste caso eu chamo os eventos passando os valores que preciso,
mas estou com problema em algum dos parametros,pois da um um erro
dizendo que o parametro deve ser igual ao outro.
Outra duvida eu nao sei se dsDragEnter seria o parametro correto para o shape se mover apartir da chamada do evento.