Penomoran Otomatis

ga banyak bacot lah langsung aja ke coding 

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
 i : integer;
 a : string;
begin
 i := 0;
 // pertama ambil nilai angka saja.
 a := copy(sEdit1.Text,4,7);
 // arti perintahnya adalah ambil 7 karakter pada sEdit1
 // dimulai dari huruf ke 4 sampai akhir string
 // variabel a berisi string dengan nilai 0000000
 // maka kita akan konversikan ke integer yang akan menghasilkan nilai 0 saja.
 // dan kita akan menambahkan 1 kenaikan nilai pada setiap kita klik
 i := StrToInt(a)+1;
 a := IntToStr(i);
 // i akan bernilai a + 1, yg artinya akan terus bertambah 1 setiap button di gunakan.
 // cek berapa karakter nilai yang baru ?
 // jika nilai 1 - 9 maka String yang tetap adalah 'No.000000x' dan nilai yang berubah dibelakangnya.
 // selanjutnya jika 10 - 99 dianggap 2 karakter maka yang tetap adalah 'No.00000xx' x yang berubah nilainya
 if Length(a) = 1 then
  sEdit1.Text := 'No.000000'+a;
 if Length(a) = 2 then
  sEdit1.Text := 'No.00000'+a;
 if Length(a) = 3 then
  sEdit1.Text := 'No.0000'+a;
 if Length(a) = 4 then
  sEdit1.Text := 'No.000'+a;
 if Length(a) = 5 then
  sEdit1.Text := 'No.00'+a;
 if Length(a) = 6 then
  sEdit1.Text := 'No.0'+a;
 if Length(a) = 7 then
  sEdit1.Text := 'No.'+a;
end;

Delphi syntax:

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

S : String
Index : Awal Karakter yang akan diambil
Count : Jumlah Karakter yang akan diambil