如何设置ADOQuery中的字段为永久字段对象

怎么设置ADOQuery中的字段为永久字段对象？
procedure TFInput1.ADOTable1AfterInsert(DataSet: TDataSet);
var lastno,newno:string[10];
begin
    begin
     ADOQuery1.Open;
     lastno:=ADOQuery1Expr1000.Value ;
     newno:=Copy(lastno,1,6)+IntToStr(StrToInt(Copy(lastno,7,2))+1);
     ADOTable1.FieldByName('学号').AsString:=newno;
     ADOTable1.FieldByName ('民族').AsString:='汉';
     ADOTable1.FieldByName ('出生日期').AsString:='1980-1-1';
    end;
end;



我不知道怎么设置ADOQuery中的字段为永久字段对象，字段对象名为ADOQuery1Expr1000，之后可以使用ADOQuery1Expr1000.Value获得学号的最大值，这个到底在哪里设置呀，请教各位高手！
------最佳解决方案--------------------------------------------------------
双击，增加字段
------其他解决方案--------------------------------------------------------

引用:

双击，增加字段

谢谢，解决了~3Q~