Zugriffsverletzung beim zugreifen auf Indy TCPServer Kompo

[Chris1986]

Hi,
ich habe eine Funktion geschrieben, die eine TCP Server Komponente aktiviert und das Ergebnis zurückliefert. Die Komponente ist in einem Datenmodul und die Funktion in der dazugehörigen Unit.
Komischerweise bekomme ich, wenn die Funktion aus einer anderen Unit heraus aufgerufen wird, eine Zugriffsverletzung. Aber nur dann, wenn die Server Komponente angesprochen wird. Klammer ich den Teil der Funktion aus, gehts.

Hier der Quelltext:

Delphi-Quellcode:

public
  { Public-Deklarationen }
  Function Server_aktivieren (Status: boolean): boolean;

implementation

{$R *.dfm}
Function TVerbindungsData.Server_aktivieren(Status: Boolean): Boolean;
begin
  Result := true;
  try
    TCPCommandServer.Active := Status;
    TCPMsgServer.Active := Status;
  except
  end;
  Result := (TCPCommandServer.Active) and (TCPMsgServer.Active);
end;

MfG
Christian