[paldave]

Evidentemente hay un error en la definición de la variable Desktop.
Devería definirse como File:

Código Delphi [-]
procedure DefineIcon(Path, IconFile: string; IconIndex: Integer = 0);
var Desktop: File;
begin...