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

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?

Así de grande no se verá, salvo que tenga un hipermegasmartphoneultragigante :D

Es un Samsung Galaxy S4 GT-i9500 de 1080p de 4'' y estaba ajustado el proyecto para que aparezca la imagen correspondiente en un tamaño visible en el dispositivo. Pero aun así no aparece, con ImageView aparece el fondo pero no dibuja el canvas.