ungenügende Forward- oder External-Deklaration

[ArchaicSeraphim]

Hoi Leutz,
Ich wollte grade eine function erfinden, die etwas allgemeiner funtzt, aber irgendwie mag mich Delphi nicht... also, so sieht's aus: Ich habe einen String, den ich auf Klammern überprüfen will, und ob die auch alle schön brav geschlossen sind. Das mache ich folgendermaßen:

Delphi-Quellcode:

function Klammer(abc:string):boolean;
var
i: integer;
n: integer;
begin
  i := 1;
  n := length(abc);
  if n > 0 then
  begin
    while i <= n do
      begin
        if abc[i] = '(' then K := K+1          // <<< Globale Variable für Klammern.
        else
          if abc[i] = ')' then K := K-1;
        inc(i);
      end
  end;
  if K = 0 then result := true
  else result := false;
end;

Außerdem habe ich noch die Deklaration

Delphi-Quellcode:

type
  TFTerm = class(TForm)
    EEingabe: TEdit;
    BPruefen: TButton;
    BBeenden: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BBeendenClick(Sender: TObject);
    procedure BPruefenClick(Sender: TObject);
    function Klammer(abc:string):boolean;              // <<<***
  private
  public
    { Public-Deklarationen }
  end;

hinzugefügt.