Problem mit Klassen / Property / Funktionen

[shmia]

Delphi-Quellcode:

TTest=class(TObject) 
    private 
    function GetStatus(const ID:string):boolean; 
    public 
    property Status[const ID:string]:boolean read GetStatus(const ID:string); 
  end; 

implementation 
... 


function TTest.GetStatus(const ID:string): boolean; 
begin 
if ID='4711' then 
   result := true
else   // bloss nicht das else vergessen
   result := False; 
(*
   // eine kompakte Abfrage für mehrere Strings
   result := StrIndex(IdLand,['4711','4712', 'Test', 'Delphi']) <> -1;
*)
end;