Código Delphi
[-]
DBEdit2.SetFocus;
DBEdit1.text:=1+query1.sql.Add('select max(idcliente)from clientes');
Código Delphi
[-]
Query1.Clear; Query1.SQL.Add('select max(idcliente)+1 as sig_cliente from clientes');
Query1.Open;
DBEdit1.text:= Query1.FieldByName('sig_cliente').AsString;
Query1.Close;
Te recomiendo usar mejor un campo autoincrementado para guardar idcliente, de esta forma el motor de BD automáticamente irá aumentándo el número y nos ahorramos todo el código anterior.