[osmuar_exp]

Seria algo asi:

showmessage(FormatDateTime('yyyy',date)+'-'+inttostr(numero_consecutivo));