Tipでもなんでもないけれど、使いまわすので・・・

function getjikoku : string;
var
        d : tdatetime;
begin
     d := now;
     result := copy(datetimetostr(d),length(datetimetostr(d))-7,8);
end;