unit A;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unit2, StdCtrls;type
  myclass = class(TObject)  private
  public
    procedure aabc(s: string); // 这里为什么为错?
    // [DCC Error] A.pas(14): E2065 Unsatisfied forward or external declaration: 'myclass.aabc'  end;implementationprocedure aabc(s: string);
begin
  ShowMessage('THIS IS UNIT A.PASS');end;end.