Komponenten werden nicht erkannt

[XecuterX]

Verstehe.
Aber wenn ich versuche das umzusetzen, sagt mir Delphi, dass ich "ungenügend Forward- oder External-Deklarationen" angegeben habe.

Delphi-Quellcode:

type
  TForm3 = class(TForm)
    .
    .
    .
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure button_kontrolle;
    procedure pnl_attribut_aendern;
  end;

var
  Form3: TForm3;
  freie_attribute, freie_skills : integer;

implementation

{$R *.dfm}

procedure pnl_attribut_aendern;
begin;
  form3.Pnl_attribute.caption := 'Sie haben noch '+inttostr(freie_attribute)+' Punkte verfügbar';
end;

procedure button_kontrolle;
begin;
if freie_attribute = 25 then
  begin;
    form3.Button2.enabled := false;
    form3.Button4.enabled := false;
    form3.Button6.enabled := false;
    form3.Button8.enabled := false;
    form3.Button10.enabled := false;
    form3.button1.Enabled := true;
    form3.button3.Enabled := true;
    form3.button5.Enabled := true;
    form3.button7.Enabled := true;
    form3.button9.Enabled := true;
  end else
     if freie_attribute = 0 then
     begin;
        form3.button1.Enabled := false;
        form3.button3.Enabled := false;
        form3.button5.Enabled := false;
        form3.button7.Enabled := false;
        form3.button9.Enabled := false;
        form3.button2.Enabled := true;
        form3.button4.Enabled := true;
        form3.button6.Enabled := true;
        form3.button8.Enabled := true;
        form3.button10.Enabled := true;
     end;
if (freie_attribute = 0) AND (freie_skills = 0) then
  form3.btn_create.Enabled := true;
end;

Das versteh ich nicht, denn alle Veriablen, die die Prozeduren brauchen sind schon als Globale Variablen deklariert. Und ein Result brauchen, soweit ich weiß, nur Functions :-/ .