TImage se ve pequeño y no respeta tamaños

[wolfran_hack]

Tengo un Edit1 (TEdit) y un Image1 (TImage), el Edit1 es para escribir un texto en el Image1 con:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  var
    Rect: TRectF;
  begin
    with Image1.Bitmap do
      begin
        SetSize(Trunc(Image1.Width), Trunc(Image1.Height));
        Clear(TAlphaColors.White);
        Canvas.BeginScene();
        Canvas.Fill.Color := TAlphaColors.Black;
        Canvas.Font.Size := 60;
        Rect.Create(0, 0, Trunc(Image1.Width), Trunc(Image1.Height));
        Canvas.FillText(Rect,
                        Edit1.Text,
                        False,
                        100,
                        [],
                        TTextAlign.Center,
                        TTextAlign.Center);
        Canvas.EndScene();
      end;
  end;

Pero logro esto:

Cuando se debería ver un Image1 de 300 x 300px por lo menos y el texto indicado. Alguna idea de que sucede?