高分求菜问题（100）

已知一个记录指针指向一条记录
要怎么得到这一记录中的一个属性值
谢谢！！
function TBcardF.CreatUeserID:string;
var
  table1 : TTable;
  i:integer;
  t,p:integer;
  s:string;
begin
table1:= TTable.Create(nil);
table1.DatabaseName := DBName;
table1.TableName :='Userb.db';
Table1.Active ;
Table1.first;
t:=strtoint(Table1.Fields[0].Value  );//为了获得一个属性值但这样错了
                                      //要怎么改谢谢
p:=t-1;
while (not (Table1.Eof))and (t-p=1) do
  begin
  p:=t;
  Table1.Next ;
  t:=strtoint(Table1.fieldbyname('useId').asstring);
  end;
s:='';
for i:=0 to 10-length(inttostr(p+1)) do
    s:=s+'0';
s:=s+inttostr(p+1);
result:=s;
table1.free;
end;