Na criação das Procedure automáticas, duplo click no componente, o Delphi XE8 e delphi-10 está tendo uma reação estranha ele mistura a nova Procedure com uma das Procedure já existente, fazendo que os nomes delas fique errada e tenho que corrigir todas. A nova Procedure fica iniciada com dois "P" ex:
pprocedure e a procedure já existente some um "P" ex: rocedure
Conforme exemplo de código abaixo:
pprocedure TfrmCliente.cdsMasterBeforeCancel(DataSet: TDataSet);
begin
inherited;
end;
rocedure TfrmCliente.cdsMasterBeforePost(DataSet: TDataSet);
begin
inherited;
if (cdsMaster.State = dsInsert) then
cdsMaster.FieldByName('CODIGO').AsString := '000000';
end;