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;