性能测试 记录时间

性能测试，记录时间代码：

procedure TForm_WorkForm.Button1Click(Sender: TObject);
var
  string;
begin
  inherited;
  s := FormatDateTime('hh:mms', Now);
  Form_TEST := TForm_TEST.Create(Self);
  Form_TEST.OpenData(0, varNull);
  Form_TEST.Show;
  Edit.Text := S + ' ' + FormatDateTime('hh:mms', Now);
end;