[roman]

A ver, el código

Código Delphi [-]
AntWindowProc := dbedtCod_Barra.WindowProc;
dbedtCod_Barra.WindowProc := MiWindowProc;

debes ponerlo en el OnCreate del formulario.

En el evento OnDestroy del formulario pones:

Código Delphi [-]
dbedtCod_Barra.WindowProc := AntWindowProc;

Finalmente, deja así el método MiWindowProc:

Código Delphi [-]
procedure TfrmIArticulo.MiWindowProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_COPY, WM_PASTE:
      ShowMessage('No puede Copiar ni Pegar')
    else
      AntWindowProc(Message); // Aquí quité frmIArticulo
  end
end;

// Saludos