[[duilioisola]]

Pues es tan simple como sumar 1...

Código SQL [-]
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger + 1);