نمایش تایم کارهای انجام شده در دلفی

کامپوننت acDateTimeCalc در تب app controls ++  قرار دارد روی فرم بگذارید و کد زیر را برای ان بنویسید

procedure TForm1.Button1Click(Sender: TObject);

begin

  acDateTimeCalc1.BeginTime:=Time;

  ADOQuery2.Close;

  ADOQuery2.Open;

  ADOQuery1.Close;

  ADOQuery1.Open;

  acDateTimeCalc1.EndTime:=Time;

  Caption:=Caption+'  '+IntToStr(acDateTimeCalc1.MSeconds);

end;