Zugriffsverletzung auf andere Unit

[Spurius]

Hallo,
ich bin mit OOP noch nicht so vertraut, wollte es aber mal einsetzen.
Also,
ich hab ein Formular mit dazugehörender Unit:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ExtCtrls, StdCtrls,wertesetzten;

type
  TForm1 = class(TForm)
  ...  
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
 systemmain.Startwerte_setzen;
end;

end.

Und ich hab ne witere Unit ohne Formular, und da will ich Objekte erstellen, auf die ich aus unit1 zugreifen kann. Ich bekomme jedoch Zugriffsverletzungen, wenn ich z.B auf systemmain.zeit zugreife.
Hier die 2. Unit:

Code:

unit Wertesetzten;

interface
uses Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ExtCtrls, StdCtrls;
type
 Tsystemmain=class
  public
  Zeit,Datum,Jahr:single;
  procedure Startwerte_setzen;
  constructor  create(zeitf: single);
end;

 TSpieler=class
  Vermoegen, Schulden, Spielerlevel: single;
  Spielername, Hauptsitz, Unternehmensname: string;
end;

var Spieler: TSpieler;
    Systemmain: TSystemmain;
implementation
uses unit1;
constructor tsystemmain.create(zeitf: single);
begin
 zeit := zeitf;
end;
procedure tsystemmain.startwerte_setzen;
begin
 systemmain.Zeit := 22;
end;
end.

Weiss jemand warum?
Gruß
Spurius

[Keldorn]

Hallo

du mußt dein Object auch erzeugen und am ende wieder freigeben

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 systemmain:=tsystemmain.create;
 systemmain.Startwerte_setzen;
end;

gugg auch mal hier:
http://www.grundlagen.delphi-source.de/pascal/oo.shtml

Mfg Frank

[Spurius]

Hallo,
Danke,es geht jetzt.
Gruß
Spurius