求一函数？

一个表的结构如下：
create table test(
           pkid int identity(1,1) primary key,
           date_id varchar(50)
)
用DELPHI写一个函数，实现这样的功能，传递一个表名字的参数，字段的参数，（或许还有一个INTEGER 参数）
首先检查表中记录是否为空，如空就把当前系统日期加0001返回，即：200705260001
如果不为空，就判断年是否与当前想同即：前四位是否为2007，相同的话则判断月）如果月份相同就判断日期，不同的话就在该记录上加1 
即：如果上次表中的记录是：20070526001 那么下次返回的就是20070526002了。
如果表中的最后的记录是20070525007 那么今天第一次返回的记录就是20070526001
就是这样的
函数类型大概是这样的
function adata(tablename,fieldname: String; i: integer): String;