Delphi出現“Unsatisfied forward or external declaration”錯誤提示

Delphi出現“Unsatisfied forward or external declaration”錯誤提示

unit Unit1;
/////by clin003 at 20070423 from:http://blog.csdn.net/clin003 //////////////////////////
interface

uses
Tlhelp32, ShellAPI,;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    function ShellRun(sPath: string; sParam: string = ''): Cardinal; {如果這樣的話在這裡就會報錯
    [Error] Unit1.pas(29): Unsatisfied forward or external declaration: 'TForm1.ShellRun'   
   
    }
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function ShellRun(sPath: string; sParam: string = ''): Cardinal;
begin
..
end;
end.

/////by clin003 at 20070423 from:http://blog.csdn.net/clin003 //////////////////////////
{出現這樣的原因就是：定義啦一個方法但沒有實現它（這裡會有疑問）
其實這個函數實現部分改成這樣就可以啦：
function Tform1.ShellRun(sPath: string; sParam: string = ''): Cardinal;
begin
..
end;

}