Wenn du wissen willst, wie du das mit den Parametern in Properties machen sollst:
Delphi-Quellcode:
type
TTest = class(TObject)
private
// von PChar auf integer geändert
function GetStatus(ID: integer): boolean;
public
// [index] eingefügt und read-Anweisung verändert
property Status[index: integer]: boolean read GetStatus;
end;