Проблема с созданием процедуры

[hokadva]

Error:Forward declaration not solved clear;

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

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button10: TButton;
    Button11: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure clear();
  private

  public

  end;

var
  Form1: TForm1;
  x,vi1,vi2,vi3,vi4,vi5,vi6,vi7,vi8,vi9:string;
implementation

{$R *.lfm}

{ TForm1 }
procedure clear();
     begin
     if (vi1=vi2) and (vi1=vi3) and (vi1='x') or (vi1=vi4) and (vi1=vi7) and (vi4='x') or (vi7=vi8)
        and (vi8='x') and (vi7=vi9) or (vi3='x') and (vi6=vi9) and (vi9=vi3) or (vi4='x') and (vi5=vi6) and (vi4=vi6) or
        (vi1='x') and (vi1=vi9) and (vi5=vi9) or (vi7='x') and (vi5=vi3) and (vi3=vi7) then
        begin
          ShowMessage('победили крестики');
          form1.Button1.caption:='';
          form1.Button2.caption:='';
          form1.Button3.caption:='';
          form1.Button4.caption:='';
          form1.Button5.caption:='';
          form1.Button6.caption:='';
          form1.Button7.caption:='';
          form1.Button8.caption:='';
          form1.Button9.caption:='';
          vi1:='т';
          vi2:='т';
          vi3:='т';
          vi4:='т';
          vi5:='т';
          vi6:='т';
          vi7:='т';
          vi8:='т';
          vi9:='т';
        end;
     if (vi1=vi2) and (vi1=vi3) and (vi1='0') or (vi1=vi4) and (vi1=vi7) and (vi4='0') or (vi7=vi8)
        and (vi8='0') and (vi7=vi9) or (vi3='0') and (vi6=vi9) and (vi9=vi3) or (vi4='0') and (vi5=vi6) and (vi4=vi6) or
        (vi1='0') and (vi1=vi9) and (vi5=vi9) or (vi7='0') and (vi5=vi3) and (vi3=vi7) then
        begin
          ShowMessage('победили нолики');
          ShowMessage('победили крестики');
          form1.Button1.caption:='';
          form1.Button2.caption:='';
          form1.Button3.caption:='';
          form1.Button4.caption:='';
          form1.Button5.caption:='';
          form1.Button6.caption:='';
          form1.Button7.caption:='';
          form1.Button8.caption:='';
          form1.Button9.caption:='';
          vi1:='т';
          vi2:='т';
          vi3:='т';
          vi4:='т';
          vi5:='т';
          vi6:='т';
          vi7:='т';
          vi8:='т';
          vi9:='т';
        end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    vi1:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button1.Caption:=vi1;
    clear();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  vi2:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button2.Caption:=vi2;
    clear();
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  vi3:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button3.Caption:=vi3;
    clear();
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  vi4:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button4.Caption:=vi4;
    clear();
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  vi5:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    clear();
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  vi6:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button6.Caption:=vi6;
    clear();
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  vi7:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button7.Caption:=vi7;
    clear();
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  vi8:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button8.Caption:=vi8;
    clear();
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  vi9:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button9.Caption:=vi9;
    clear();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x:='x';
end;

end.

[zub]

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

procedure TForm1.clear();