function TMyButton.DrawWarningIcon(ACanvas: TCanvas): Integer;
var
  Width : Integer;
  Left : Integer;
  Top : Integer;
begin
  Width := ACanvas.ClipRect.Width div 10;
  Left := Round((CurrentPPI/96)*3);
  Top := ACanvas.ClipRect.Height - Width -
             Round((CurrentPPI/96)*3);

  dm.ImageCollection.Draw(ACanvas,
                          Rect(Left, Top, Width, Width),
                          3, // Icon Index
                          true);

  Result := Width;
end;