Firemonkey XE8: Bitmap zuschneiden

[Loko789]

Wenn ich folgendes anwende, kommt nur ein schwarzes Bild heraus.

Delphi-Quellcode:

          bmp := bmp.LoadFromFile('C:\test.bmp');
          bmp.Height := 200;
          bmp.Width := 200;
          bmp.SaveToFile('C:\test2.bmp');

Habe so etwas noch nie gemacht. Könnte mir jemand ein Codebeispiel geben, das wäre sehr hilfreich.
Gruß
Loko