Cara membuat penomoran otomatis

//Penomoran Otomatis utk pemograman penjualan barang
If ttrans.eof then
edit1.text = "NT001"
else begin
 ttrans.last;
notrans.ttransnotrans.value;     //NT001
notrans := copy (faktur 3,3) ; //002
no:= strtoint(notrans);
no:= no +1;
nofaktur:= copy(nottrans, length(notrans) -2 , 3);
notrans;= NT + notrans; //NT002
edit1.text := notrans;
ttrans.first;
end;
edit2.setfocus;

NB: Listing diatas untuk program Delphi so yg gak pake delphi maaf yaa....!
       ttrans (nama tabel database)
       notrans (nama field nomor transaksi)
       Listingnya ditempatkan pada tombol "kosong"
       Selamat Mencoba..!