Deklarationen II

[Hellcat]

Ok, ich hab das Problem jetzt gelöst, die zirkuläre Refernz hab ich so umgangen:

Delphi-Quellcode:

unit UnitFunc;

interface

uses SysUtils, ExtCtrls, StdCtrls, Controls, Classes, Graphics, Dialogs,Forms,
     unittype;
  {Standard-Units auf die zurückgegriffen wird}
  type
    TForm1 = class(TForm);
    THLPan1 = TImage;

    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;
    function laden : string;
    procedure zerlegen (Zeile:string);



implementation

uses UnitHaupt;