vamos a dejarlo sencillo, utiliza el "Primer trozo de codigo".
Colocalo donde lo necesites, y el click del boton:
Código Delphi
[-]MiCorrelativo := LeerCorrelativo('elcampo', 'I', tbCorrelativo);
Donde:
elcampo= El campo que tienes en la tabla de correlativo
tbCorrelativo= La tabla que guarda los correlativos(EL dataset que lo conecta)