Hola amell2020, la verdad no se entiende muy bien tu ultima explicación, si quieres incrementar 1 al ultimo registro y mostrarlo en un edit:
Código Delphi
[-]
Query.Close;
Query.Sql.Text := 'SELECT MAX(IDPERSONAL)+1 AS NUMERO '+
'FROM Personal';
Query.Open;
Edit.Text := Query.FieldByName('NUMERO').AsString;
Saluditos