>>882

procedure register;
begin
RegisterComponents('samples',[TFileRes]);
end;

というのがあります。