TImage auf Button setzen?

[Gandalfus]

Delphi-Quellcode:

TneuerButton = class(TButton)
  public
    procedure paint; override;

end;

implementation

procedure TneuerButton .paint;
begin
  inherited;
  ......
  Gif zeichen
end;