buttonelapsedclick 这个代码如何实现

Question

完全代码是这样 
buttonelapsedclick   鼠标双击之后 显示的procedure TForm1.Button1Click(Sender: TObject);
beginend;end.

Answer 1

不是 如何把 Button1Click 改得跟原来的完整代码一样 
我好几个问题都卡在这个地方了

Answer 2

真的不知道您要实现什么效果，您看看下面的代码对您有用不？
procedure TForm1.Button2Click(Sender: TObject);
var
  AStopTime,AStartTime :TDateTime;
begin
  AStopTime :=Now;
  //AStartTime
  ListBox1.Items.Add(FormatDateTime('HH:MM:SS', AStopTime));  //把AStopTime 换成AStartTime-AStartTime
end;