Toolbutton grau machen + disable !!!

[Metallicwar]

guten morgen, kann mich mal wieder mit diesem Thema beschäftigen.
Ich bin gerade dabei, den Code von Progman zu verwenden.

Delphi-Quellcode:

procedure MakeImageHalfTransparent(Source, Dest: TPNGObject);
var
  i, j: Integer;
begin
  Dest.Assign(Source);
  Dest.CreateAlpha;
  if (Dest.Header.ColorType <> COLOR_PALETTE) then
    for j := 0 to Source.Height - 1 do
      for i := 0 to Source.Width - 1 do
        Dest.AlphaScanline[j]^[i] := Dest.AlphaScanline[j]^[i] div 3;
end;

im Form.OnShow möchte ich dann die Funktion anwenden.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  MakeImageHalfTransparent(Toolbutton1, TToolbutton);
end;

Nur weiß ich leider nicht, was ich als Source, bzw. Dest. angeben soll.
Momentan erhalte ich die Fehlermeldung Inkompatible Typen TPNGObject und TToolButton.
Ich verwende eine Toolbar mit entsprechenden Toolbuttons und weiße diesen Images einer ImageList zu.