Membuat Nomer Otomatis Pada Delphi 7

Mungkin membuat nomer otomatis akan membantu anda, nomer otomatis bisa berfungsi agar record database tidak sama nomer otomatis bisa di gunakan untuk kode, jumlah, atau yang lainnya.
alangsung saya ini lah source code nya :

procedure TPEMBAYARAN.no-otomatis;
var a,x,y : integer;
begin
a := 1;

    ADOQuery1.Active := False;
    ADOQuery1.SQL.Clear;
    ADOQuery1t.SQL.Add('select * from BayarCicilan');
    ADOQuery1.Active := True;

    If ADOQuery1.RecordCount <> 0 then
    begin
      ADOQuery1.Last;
      x := StrToInt(RightStr(ADOQuery1['NomorByr'],1));
      y := x+a;
      enobar.Text := 'BYR-'+IntToStr(y);
    end else
    begin
      enobar.Text := 'BYR-1';
    end;

end;



itu adalah source code untuk nomer otomatis, semoga bermanfaat :)