Delphi-PRAXiS - Delphi Undeclared Identifier

Hi Leute!

Bin heute mal wieder nicht so fit, daher wieder eine etwas dumme Frage:
Beim Compiliren erhalte ich die Meldung "Undeclared identifier: 'speichern'". Die Funktion "speichern" ist in einer anderen Unit eingetragen, auf die aber in der Hupt-Unit verwiesen wird.

Delphi-Quellcode:

			 unit UnitHaupt;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, unittype, unitfunc, Menus, ExtCtrls, StdCtrls, ActnList, StdActns;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    Datei1: TMenuItem;

    Speichern1: TMenuItem;

    Laden1: TMenuItem;

    Drucken1: TMenuItem;

    Beenden1: TMenuItem;

    Extras1: TMenuItem;

    Editor1: TMenuItem;

    Legende1: TMenuItem;

    PanHalle01: TPanel;

    PanLab1: TLabel;

    PanLab1T: TLabel;

    THLPan1: TImage;

    SchlPan1: TImage;

    procedure SndPan2MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure Speichern1Click(Sender: TObject);

    procedure PanHalle03MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

{Menüleiste - Menü "Datei"}

procedure TForm1.Speichern1Click(Sender: TObject);//Menüpunkt "Speichern"

var i: Byte;

begin

  for i := 1 to MaxHallen do

    begin

      speichern('PanHalle' + IntToStr (i));

    end;

end;

Und hier die zweite Unit:

Delphi-Quellcode:

			unit UnitFunc;

interface

uses SysUtils, ExtCtrls, Controls, Graphics;  {Standard-Units auf die zurückgegriffen wird}

    procedure Farbewechseln (Sender: TPanel; Button: TMousebutton);

    function Zeitangabe:string;

    function THL (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;

    function Sound (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;

    function Schloss (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;

    procedure speichern (Hname, Zeit, HFarbe: string; Schl, THL, Sound:boolean);

implementation

procedure speichern (Hname, Zeit, HFarbe: string; Schl, THL, Sound:boolean);

var save:  Textfile;

begin

  AssignFile (save, 'zustand.hbl');

  {$i-} Append (save){$i+}

  if IOResult <> 0 then

    begin

      showmessage ('Die Datei "Zustand.hbl" wurde nicht gefunden!');

      exit;

    end;

  writeln (Save, TimeToStr(now) +';'+ HName +;+ Zeit +;+ HFarbe +;+

            BoolToStr(Schl) +;+ BoolToStr (THL) +;+ BootToStr (Sound));

  closeFile(Save);

end;