// 测试
procedure TfrmMain.btnDateClick(Sender: TObject);
var
  logDate: string;
begin
  try
    logDate:= FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
    mmLine.Lines.Add(logDate);
  finally
  end;
end;
 
				    // 测试
procedure TfrmMain.btnDateClick(Sender: TObject);
var
  logDate: string;
begin
  try
    logDate:= FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
    mmLine.Lines.Add(logDate);
  finally
  end;
end;