Regal := Regalliste.findeObjekt(schluessel) as TRegal;
oder
Delphi-Quellcode:
if Regalliste.findeObjekt(schluessel) is TRegal then
Regal := Regalliste.findeObjekt(schluessel) as TRegal;
oder wenn du ganz sicher bist, dass was zurück kommt und das ein regal ist:
Regal := TRegal(Regalliste.findeObjekt(schluessel));