fazer o tbutton ter double click

pessoal boa tarde alguém de vcs sabem por um tbutton com a propriedade dblclick tipow estou criando um botão dinamico que vc pode mexer na tela mais queria que quando clicasse uma vez não executasse o onclick para mim poder mexer ele só executasse o on click quando clicasse duas vezes igual o win[u:e764e63e70][b:e764e63e70] entenderão [/b:e764e63e70][/u:e764e63e70] abraço galera espero uma resposta tcháu

procedure MeuButtonDbClick(Sender: TObject);

procedure TForm1.MeuButtonDbClick(Sender: TObject);
begin
showmessage(´So para testar mesmo ...);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.ControlStyle :=
  button1.ControlStyle + [csClickEvents];
  TForm(button1).OnDblClick:= MeuButtonDbClick;
end;