FM keine Funktionalität bei Image Manipulation

[zeras]

Ich habe das nun als komplettes Projekt und trotzdem ändert sich nichts, wenn ich auf den Button klicke. Es kann doch nicht sein, dass ich an den Basics scheitere oder doch?

Delphi-Quellcode:

unit Unit14;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects,

  System.UIConsts;


type
  TForm14 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form14: TForm14;

implementation

{$R *.fmx}

procedure TForm14.Button1Click(Sender: TObject);
begin
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear (claLime);
  Image1.Bitmap.Canvas.EndScene;

end;

end.