Создание функции

[zotox]

Ошибка

[Error] Unit1.pas(26): Unsatisfied forward or external declaration: 'TForm1.GoToDir'

  private
     procedure GoToDir(dir: string);
    { Private declarations }
  public
    { Public declarations }

implementation

{$R *.dfm}

procedure GoToDir(dir: string);
begin
 ShowMessage('1234');
end;

Помогайте чтоль

[profi]

procedure TForm1.GoToDir(dir: string);
begin
 ShowMessage('1234');
end;