Равиль огромное вам спасибо, так просто. Все работает. Обычная пропорция.
Я думал сложнее (я делал Image1.Height := Image1.Bitmap.Height; ). И заодно решилась проблема, когда увеличиваешь размер формы, картинка корректно увеличивается с Fit.
Вот правильный код, который посоветовал Равиль:
procedure TfrmSplash.FormResize(Sender: TObject);
var
vKoef: Single;
begin
if Handle = nil then exit; // on Android without this user will get Access Violation
vKoef := Image1.Width / Image1.Bitmap.Width;
Image1.Height := Image1.Bitmap.Height * vKoef;
end