Undeclared Identifier

[Hellcat]

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;