Eigener Kalender bauen

[nahpets]

Delphi-Quellcode:

function StrToLabel(sName : String) : TLabel;
var
        myCompo : TComponent;
begin
  Result := Nil;
  myCompo := FindComponent(Format('lb%s',[sName])); // oder welche Namenskonvention auch immer.
  if Assigned(myCompo) then begin
    if myCompo is tLabel then Result := myCompo;
  end;
end;