[TSpeedButton] Zur Laufzeit mit einem Glyph versehen

[xZise]

Hallo ihr,

ich habe hier einen SpeedButton und in einem soll etwas nur zur Laufzeit angezeigt werden. Aber irgendwie kriege ich es nicht hin das Icon zur Laufzeit zu setzen:

Delphi-Quellcode:

with TRegistry.Create(KEY_READ) do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\vncviewer.exe', false) then
    begin
      VNCPath := ReadString('');
      sbVNC.Enabled := true;
      icon := TIcon.Create;
      try
        icon.Handle := ExtractIcon(HInstance, PChar(VNCPath), 0);
        sbVNC.Glyph.Canvas.Draw(0, 0, icon);
      finally
        icon.Free;
      end;
    end else
      sbVNC.Enabled := false;
  finally
    Free;
  end;

Dies zeigt keine Wirkung. Auch ein Rumzeichnen auf der Canvas bringt nichts. Wenn ich aber das auf ein TImage zeichne zeigt er Ordnungsgemäß das Logo an.

MfG
xZise