当前时间加五分钟

function AddMinute(var aDateTime: TDateTime): String;
var
  n,y,r,x,f,m,hm : word;
begin
  //当前时间加五分钟
  aDateTime:=aDateTime+strtodatetime('00:05:00');
  DecodeDateTime(adateTime,n,y,r,x,f,m,hm);
  AddMinute := IntToStr(n)+'年'+
  IntToStr(y)+'月'+
  IntToStr(r)+'日'+
  IntToStr(x)+'时'+
  IntToStr(f)+'分';
end;