function mit pointer als Rückgabewert

[Mr. No]

hi,
ich habe in einer unit eine Instanz eines Objektes und möchte eine Zugriffsfunktion implementieren, die es erlaubt, von außen auf diese Instanz zuzugreifen. Ich möchte also eine Funktion schreiben, die einen Pointer auf dieses Objekt zurückgibt.

Leider scheitere ich schon an der Funktionsdeklaration.

Delphi-Quellcode:

uses meinObjekt, ...
type
  TMainForm = class(TForm)
  ...
private
  ...
public
  function GetMeinObjekt: TmeinObjekt;
  ...
end;

var
  MyObject: TmeinObjekt;

  function TMainForm.GetMeinObjekt: TmeinObjekt;
begin
  Result := MyObject;
end;

Das funktioniert soweit. Aber wie kann ich den Code jetzt derart modifizieren, dass er mir statt einer Kopie des Objektes einen Pointer auf das Objekt zurückgibt?

Herzlichen Dank im Vorraus!!

Gruß
Mr. No