begin
  ShowMessage(FormatDateTime('YYYYMMdd', Now));
  ShowMessage(FormatDateTime('hhnnss', Now));
end;

Var
  Y,M,D: Word;
  HH,MM,MS: Word;
  S1,S2: String;
begin
  DecodeDate(Now, Y, M, D);
  DecodeTime(Time, HH, MM, MS);
  S1 := IntToStr(Y) + IntToStr(M) + IntToStr(D);
  S2 := IntToStr(HH) + IntToStr(MM) + IntToStr(MS);
  ShowMessage(S1 + #10#13 + S2);
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================