Mostrar el Número de CLiente en un Mantenimiento

[[Caral]]

Hola
Tambien:

Código Delphi [-]
procedure TFOrdProd.ADOQuery1BeforePost(DataSet: TDataSet);
begin
  Query1.Sql.text:= 'Select Max(No) form Clientes';
  Query1.Open;
  If Edit1.Text = IntToStr(Query.Fields[0].asinteger) then
  begin
  if MessageBox(Handle,
                PChar('Esta tratando de poner un numero que ya existe' + #13#10 +
                      'Desea cambiarlo ?'),
                PChar('Numero Repetido'),
                MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDOK then
  begin
  Query1.Sql.text:= 'Select Max(No) form Clientes';
  Query1.Open;
  Edit1.Text = IntToStr(Query.Fields[0].asinteger+1);
  end;
  end;
end;

Saludos