Format Nomer Urut

Function NoUrut(HurufAwal,Penghubung:string;NilaiAngka:Word):string;
begin
 Result := HurufAwal +
           Copy(Penghubung,1,length(Penghubung)-length(IntToStr(nilaiangka))) +
           IntToStr(nilaiangka);
end;