TTaskbar: Neues Icon zuweisen?

[PeterPanino]

Leider ist es mir nicht gelungen, das Icon aus einer Projekt-Resource zu laden:

Delphi-Quellcode:

procedure TForm1.LoadTaskbarIcon(const AResName: string);
var
  NewIcon: Vcl.Graphics.TIcon;
begin
  NewIcon := Vcl.Graphics.TIcon.Create;
  try
    NewIcon.LoadFromResourceName(HInstance, AResName);
    Application.Icon.Assign(NewIcon);
  finally
    NewIcon.Free;
  end;
end;