Problem mit Klassen / Property / Funktionen

[S20000]

Hallo zusammen,

ich bin gerade dabei ein Programm zu schreiben welchen
verschiedene Klassen erhalten soll.

Ich komme zur Zeit durcheinander mit Properties und Funktionen.
Ich weiß das das unten angegebene Beispiel nicht lauffähig ist,
ich hoffe jedoch daraus wird mein Problem ersichtlich.

Ich möchte aus einem anderen Formular die Klasse TTest.Status aufrufen,
und abhängig vom übergebenen Wert "true" oder "false" erhalten.

Delphi-Quellcode:

interface
...

TTest=class(TObject)
    private
    function GetStatus(ID:pchar):boolean;
    public
    property Status:boolean read GetStatus(ID:pchar);
  end;

implementation
...


function TTest.GetStatus(ID:pchar): boolean;
begin
if ID=4711 then 
result := true;
end;

Gruß
Sebastian