Un milagro!

function Jesus.Miracle(Water: TWater): TWine;
begin
  Result := Water as TWine;
end;