Gracias Jhonny. No ha funcionado.
Lo he arreglado de la siguiente manera :
Código Delphi
[-]procedure TMainForm.Icons_On_DeskTop_Update(i: Integer; AuxS1: String);
begin
Arr_DesktopL[i].Caption := AuxS1;
Arr_DesktopL[i].Visible := False;
Arr_DesktopL[i].Visible := True;
end;