ручной счетчик

[Pbl6a]

Приветствую вас!!!
На форме размещены следующие компоненты для связи Delphi и MySQL:

ADOConnection1 (+ драйвер mysql odbc-3.51.28-win32)
ADOTable1
DataSource1
DBGrid1
Button1

Дак вот ! нужно сделать чтобы помимо Id (автоинкриментного поля) было еще 1 поле которое заполняется (с интервалом +1) только по нажатию кнопки.
В теории какбы я могу оьбяснить что должна делать прцедура, а на практике не получается
Выручайте )

[Pbl6a]

ОМГ о5 СПС самому сибе !!!!

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=ADOTable1.FieldByName('Tn').Asin teger;
ADOTable1.Insert;
ADOTable1.FieldByName('Tn').Asinteg er:=i+1;
ADOTable1.Post;
end;

end.

[Dark_Spirit]

можно попробовать так:

 adotable1.last;
 nomer:=adotable1.fieldbyname('<имя поля которое заполняется>').asinteger+1