iconos de carpeta

[Max_E.]

hola a todos

quisiera saber si hay una manera de personalizar el icono de una carpeta atravez de una aplicacion en delphi, algo mas o menos asi

Código Delphi [-]
var
cad1,cad2: string

begin
cad1:='ubicación de carpeta;
cad2:='ubicación del icono;
cambiaricono(cad1, cad2);
end

gracias por la ayuda brindada de antemano