Problem mit Skalierung eines Bitmap im BitBtn

[Helmi]

Ich hab jetzt nochmal ein wenig rumgespielt und bin auf folgende Lösung gekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp, bmp2: TBitmap;

begin
  bmp := TBitmap.Create;
  bmp2 := TBitmap.Create;

  try
    bmp.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');

    bmp2.Width := BitBtn1.Width;
    bmp2.Height := BitBtn1.Height;

    bmp2.Canvas.StretchDraw(Rect(0, 0, bmp2.Width, bmp2.Height), bmp);

    BitBtn1.Glyph.Assign(bmp2);
    Image1.Picture.Assign(bmp2);
  finally
    FreeAndNil(bmp);
    FreeAndNil(bmp2);
  end;
end;