Ошибка Forward declaration not solved "TForm1.test_proc;"

[zmirk]

Здравствуйте все!
У меня странная проблема, не могу объявить процедуру. Вот пример:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)

  procedure test_proc;

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure test_proc;
begin
  showmessage('Test!');
end;

initialization
  {$I unit1.lrs}

end.


При компиляции дает ошибку "Forward declaration not solved "TForm1.test_proc;""
Подскажите пожалуйста, где тут собака зарыта. Версия Lazarus 0.9.28.2

p.s. Удивительно, но подобную ошибку и лекарство от нее я нигде не нашел..(

[Brainenjii]

^_^ Должно быть так -

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)

  procedure test_proc;

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.test_proc;
begin
  showmessage('Test!');
end;

initialization
  {$I unit1.lrs}

end.

А ещё лучше

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)

  procedure test_proc;

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

  {$R *.lfm}

procedure TForm1.test_proc;
begin
  showmessage('Test!');
end;

end.

[zmirk]

Большое спасибо, заработал первый вариант, второй сыпет ошибку "error while linking".