В вашем случае вы не задали тип кисти Canvas.Stroke. Более, чем уверен, что на устройстве там стоит TBrushKind.bkNone. Вашу проблему решит задание типа кисти TBrushKind.bkSolid.
procedure TForm5.Image14Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
EllipseRegion: TRectF;
begin
Canvas.Stroke.Kind := TBrushKind.bkSolid;
Canvas.Stroke.Color := TAlphaColorRec.Red;
EllipseRegion := TRectF.Create(TPointF.Create(100, 100), 20, 20);
Canvas.DrawEllipse(EllipseRegion, 1);
end;
Хорошая практика отрисовки в FMX полагает, что вы полностью инициализируете все кисти, необходимые вам для отрисовки.
Так же обратите внимание, что канва для формы и всех контролах, размещенных на ней, всегда существует в одном экземпляре. И правилом хорошего тона, является использовать канву, переданную через параметры события отрисовки.