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:

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:

http://i.minus.com/ibndeHzH4GtMfs.png

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

[Casimiro Notevi]

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

[wolfran_hack]

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.